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DIE C-64 ENZYKLOPADIE 



DER AUTOR RAETO WEST vcrwendete 1 Jahr der Analyse 

und Dokx ■iii,i:i"' , i 64' I i., . hi ,■■■.■ i v in . 

uiizeilgeiiaEen Gedutd: Das einzige enzyklopadische b-'-tf- 

Budi. das neben Ihrem Computer iiegen blesbt 

Me Erklarungen. audi krircp!«x«r System- und Pro- 

(jrammlragen. umfasf«i~ b(:i [!.«>!■, IVes' stets beides- 

Kompetenz dun:'. Elnsid-ir jr.d sulides Faktenuiissen. 

Beispielhaft:Mu;ikr!Ti-:'ii-.iiu SID Chimin K<=pi:is] 1?" 

EIN REFERENZBUCH fijr prof^sHitKLflk Hard.. 

Software-En twit kit;! Lair dem I.! S Standard des 

Budis PROGRAMMING "II IE PiVrCBM des 

ijlcirhmi Amors: EIN LEHRBUCH eu Adbi-.u 

und Anwenciuvj '.-on M'kror ■ im-Hil^m .-.-:. {',■■<■. 

spiel des C-64 fur alleAutodidakten und Ein- 

EIN ANWENDUNGS-HANDBUCH zum C-64/SX- 

it liber 30L 1 Proqiarn-nk-Tu;;;:^:: . dk'i fd er-Funktionen - 
,iudi cti sti.vi'it'i.'ji::' is?ltvn«r inn muisi saniiedenen. 
Seiten, Softcover, DM 66,- 
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schrift bewahren 
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■ noch mehr Material interessie 
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it uns dieser 
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1SB4 erschien die ersta fljsga 
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miiht, die ZaitEchrift ansprec 
groBtmijglicher Lesernahe zu g 
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Fundgmbe 10S 



TOPPROGRAMM DES MONATS 



Topprogramm des 

Monats: "Snake Smasher" 

fur den Spectrum 48 K 

Das Topprogramm des Monats ist dics- 
mal fur den Spectrum 48K. "Snake Sma- 
sher" stammt von Andreas Reimer - und 
wie der Name schon sagt, miissen Sie in ei- 
ner fremden Welt, deren Zivilisation 
langst untergegangen ist, bosartige Robot- 
schlangen bekampfen. 

Der Alitor Andreas Reimer ist 17 Jahre 
all und hesucht die 12. Klasse des Lieb- 
frauen-Gymnasiums in Eschweiler bei 
Aachen. Den Einsticg in die "Compute- 
rei" schafftc cr 1982 liber die Volkshoch- 
schule, wo er einen Basic-Kurs belegte. 
Vom Sinclair ZX81 stieg er 1983 aur den 
ZX-Spectrum urn. Sein Hauptinteresse, 
die Spiele, will er moglichst bald auch mit 
einem CPC 6128 in die Tat i 



1000 DM Honorar 



lsIIcii FrojiramiiiriQiorid^riSifii das beste Programm 
htTaiissLUhoii und in Jurt'K : il- I oi.ilistingdes Vlonars 
jbdruekai. Dtr A1H1.U clicsss Programmes eibiilt dann 
jls Hi'Hiirar 1000. -DM. 



Mirmachcn konnen allc Programmierer mil den Ge- 
ratcn C64, VC20, Alan. Sinclair. II <W.'4A, CPC 464. 
Bin Listing miiG nidii nnhedingi beihcgen, is* I ts der 
Aulor des Programms rmeh k.-HLn Drneker hat. Wer- 
tlen Programme abgedruekl, die nit hi lum Tnpiisling 



s Moral! 



erhall di 



Autoi 



laf&i 



Toplirtin, 

las Honorar tiir den Abdruck in den 1(KK>- 
snthalten. Mil der Einsendung seines Pra- 
rklart sich jeder Autor mil den einzelnen 
Test "Bei unskonncc Sie mitmachen" ein- 
i sie he Stilt 4 gegtniibe-r). 



De-halb Leute aufgepalit ] 
verdienen. Die Chancen fur e: 

<lewi nner des Tnnlisvinjss des 




Abo-Bestellscheln 












SS; 


iSSiSSH 


I 


s™;r- 


~ 


:;;;,;;•; 


I 


winlesaberm. 


■mdttutnnHtotam&l 


fcy, 


& ■■ 




on - 








I*,™*,™ 


m 




«N^ 


.... 


,.» : 




D ScheeHI 


gibei 












□ Vtowuk 


«. a „„„«>,.,„„ «,.,„.„ 


ft. 


Ml^, 








Ir^n^rfeM^ 


... ■;....■ '«•■' ■■ 


'"• 


Qnm^qBAdHK 


"> '*"" 




IZSL 


—--—-" 



Computer Kontakt 2/B6 



CLUB-NACHRICHTEN , 



■i 8i tK:n Kontakt gesucht! 
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C 128 Club 


VS-Atari Club 


Neue Adresse 


Ei^Crs.* 


Ireonl. FD. Software + all 
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if^J^ifc Spectrum-Club 
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CLUB-NACHRICHTEN 



ST Atari GrOUp Amstrad- Ortenauer 

Schneider User- Computer Club 

is puis Deuucblrad, bn cujbhtc Pragnmm -JSter- Club-AacheO L 




SPIEL-REVIEWS 



\U 



'BBSS spiele |M test ! 



Das Hacker-Adventure 2S*S;tS ZZI ' 

bu^f L", Z ' % , " un "d Stt: Terrormoliiios 






llir flirrkltr Drahl 

zur Rcdubliun: 

Teltton 072 52/ 42948 

FQr 111 iff.-: 

Computer Kontakt 
Postfadtl640 
7518 Brcttcn 
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Liebe Freunde! Hisoft - Ultrakit 
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:™«"s 




7i ;™~« »•»■»«- 
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Skyline - Ext. Basic 









Der Mirage Microdriver 
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Opus Discovery 
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SINCLAIR 11 
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ui.SpMor.Ei. 



Snake-Smasher 

Fur Jen Spectrum 48 K 



XI Spec- „in g 2) eiffijp 



lermilRUNfs- 



[JiiluL'h liiLii s,c[i i|.„ i iT |. ; c 



Encipquellen nir VtifUgun K ne^tHchdiesersolsngc'wcilcr, ""^ Si bl * e Niiiiinier der [th- 



das tiielbild . das gkii±- 



1 Symlwl Shift'A (STOP| 



m:] i a ill. tli. Zn slk-m UhirfluU 






jr lie k amp far 
„ 1 .;|-d:,. :,...„ 



■ sniw shift 

• sriui sun 
- srun si if; 

■ tarn, shift 
-■ sriui urn 

• sum am 

• sum siifi 

• sriui shift 

■ smti siift 



;trt urn, im 

:«PS SHIFT, dm 

m am, «.■ 

:*S SUFI, dm 
JrS SUFI, till 

IfS SWF I, i 



i, aii sniu »i;t 



Die unterstrichenen Zeichen m 



Listing 1 


100 Sfl^E -susher' LINE 10 


ra m mm* 


10 PAPER Ol BORDER D: US : IR 
K 0: BB1BH! Hi FLUSH t) OVER 


Listing 2 


;«« N|J w ^ 


20 LET fh LET p=l 


10 (EN IIHIIItlinillllli 




» fOR ffO TO 11 


!0 PEH < SNAKE-SHABMEn * 




M PSINT AIn,n; PSPER p; IN* 


30 RBI » • 




VSnike-SHsbtr' 


» HEPI 1 ©H * 


ailFE SINCLAIR", 'THE Cll-OESTRDY 




50 REM i MffltEffli ftEIHES ■ 






to rer t ldt;feujchek ti * 






70 RER i 5180 E5CHKE1LER ■ 






B0 RE31 • TEL. 02403 /J80!* i 


m BfiTft 'BEO RUM", "THE 5PSCE- 




« RER HniHHHUWUH 


I M1ERS '," MP I * MK " . " HITIMK 




100 RED 


KnplUN~,*¥HE DEABLl DENNIS", 'SILL 




110 LMR -sushtodf CDBESjOM 


I LILLI-,"7HE KINSD (WEKSEC 



200 LET L* USB 18061 


5B0 POKE JB11B 1W POKE 3810B 


2095 BEEP .01,20 


210 "ffl«<2,BI 




3100 LET TIIN1-U 


220 LET M<l)=*TBSTftTUR" 




2120 LET Tll,I*IMI = PEEK 50000 


230 LET 0112)=- JOYSTICK' 


400 LE! W-™1 FOR NMOOOS TO 4 


2130 LET TI1,2»N>' PEEK 5OO0I 


240 DIH 1HZ,10T: FOB EM 10 2: 


0000 STEP -I: LET M-Ptt OBt ( 


3137 IF INKEVt 0" THEN 60 TO 


mm TO KM READ Hfl.N): NEXT 


WKHtfflSl NEli N 


2137 




110 PRINT AT 10,7; -SCORE: ■; IN 




250 MA 219, 2, 239, 1,247, 1,251, 




2150 60 TB 300 


1,127,4 


i20FDfiN=l TO 5; BEEP .05,10: 




255 DATA 11,2,51,1, SI, 4,31,3,11 


BEEP .05,0: BEIT N 


EH -,'R1IHT£R^,-FE0ER ■ 


21* LET K-'WlfflC 


MO IFStlPI<25 TO JOKPI IHEN 




270 PDKE23i5B,a 






310 PAPER 0! BORDER 0: W 7: B 




3005 US : PRINT INK 2] PAPER i 


BIGHT 0: FLUSH 0: OVEB 0: CLB 


LE1DER KEIN HIENSCORE. 1 


sAt; AT 19,0; St 


320 POKE 3BJ0B.1 


EBO PAUSE 0: GO TO 300 


3010 POKE 38109,1s LEI I- HSR 38 


310 LET L= HSR 30104 


700 FUR MI4 TO P STEP -Is LET 




310 PR1N! ST 5,2; INK Sj"i"[ 1 




3015 POKE 34118,41s P0KE3B119.B 


W !;■ STEUER0N6 ■; INK • :«( PE 




Os LET L=IIS» 38104s POKE 1B1I0, 


EK 40059*1) 


710 INPOT "HPCIIEEEE!!! 


Os POKE 3811?, it 


350 RUB ' INKS; 1 2"; INK 7; 


M RESULTAT 1ST IflT ■ 


1020 PRINT AT 1,0; 


'" TASTEHNARL- 


ER DEN BESTEN 15 !!! 


3030 FOR N=l TO 15 


m PRINT ■ INK 5s* 1"; INK 7, 




1035 IF NUOTHEN PRINI -O"; 


■ tUEHSCBRES" 


NNAHEN EIN.ItlALlBDUCHBTAB 


3010 PRINT N;SilN): BEEP .01, Ns 


380 PRINT AT 11,12; INK 5! "ME 


EN) OBEB DRCBEN SIE NIB! 'ENT 




TEN:" 


ER 1 . "; LINE 5*IP)I4TD2 




HO PRIM AT I3,14| IIS lj™| 








715 IF 5»IP)(4 TD21)»" 




4W PRINT AT it.lljTtlJlj AT 1 


' THEN LET StfPIH TO 


(55 


S,!!;!'!!); 1 ";T[12)-, AT I6,14;T 


2I)=-]RBENHEI4AND' 


MbO 60 TO 300 




720 LETEHPH25TC 101-Pt 


9999 SAVE 'SltfiSHBABIC 1 LINE 10 




730 60 TB MOO 




RE I HER 1985- 

420 PRINT AT IV; I* V ST 


1000 SEEP .05,20: POKE 40058, I P 
£EI! 40059=01 


Listing 3 


ART KIT DERFEUERTASTE." 


1010 PRINT AT 5,14; INK tlttl P 


10 PEN SNAKE-SMASHER'S 


430 LET L= USA 18132 


EEK 40058*11 


20 REN NC-LnsbET 


440 IE 1 IN 3UU AND PEE* 4O0 


1020 IF INKETt <>■■ THEN BO TO 


JOREtl 




IO20- 


40DEF FNOI)=H CODE M-'tl-l 




1010 BO TO. 410 






2(00 PAPER 7: INK 2s BORDER 7: C 








60 FOR 7=1 TO 5? 




2010 POKE 38108,2 






2020 LIT L= 1ISR 38104 






2030 PBiNI >T4,0i-BITTE DHiiCKE 






H SIEOIE ENISPSECtt-ENDE TASTE 


100 LET dEt-O: FOR Ml TO 1 ST 


510 FDR NMOOOt ID 40015: PCM 


ber beneben sie den imnat IN 


EP -15 


N,TI PEEK 40058*1, N-400051: NfclT 


DIE JENEILIGE RICH- TUNS.' 






2035 IF INKEW <>" THEN 60 TO 


110 LEI a«=dK* FN Oil 


520 PRINT Al 0,0;- 




120 NEXT < 




2040 RESTORE 2200 


110 POKE adr.dei: LEI pr=pr*dK 




20S0 FOR H=l ID 5 


140 LET idT-'Or*! 




24ft READ g%: PRINT AT 8<I2*N) 




E 5"l III 7; AT 2I,0 ! -ZEII:- 


2070 LET L= UBR 35247 


b'tb m pr!! IF Cr=pr2 m% S 




2075 LET 14= UKFJfl 


170 PRINI INVERSE Ij'Tippfplile 




20B0 IF I**" OH 1M- ■ OR CODE 


r in liilt "jan BEEP 1,-10 




11-11 THEN SO TO 2070 






'""""" 


,„.„,.„..,..,..,, 



Computer Konlakt 2/36 



203 LET nptnrtlt 

210 If O20THE* RNM1IZE US 
R 32B8: PRIItl AT 20,0; 

220 fill ! 

230 CLS '. PRINT AT 15,12; FLA5 
H Ij'PlllM O.K. - 

2M PSIKT ■ fertia !"• S 
Mn! 1 : BEEP .5,20 

250 SAVE "siishcDdE 1 CODE SOOOO 
,1200 

SM OHIO •ii(S7t3»H;J(0£(i)i: 
6C U«'<l!l Id.'.-Oc SeleiM" "'-S»S 
I IWct ^0 i60it«t-703: OwllC so* 1 2 
r.Hli^tJBiXOIHWAr.sJW 

3D E«'A •06O2»5(3OK«c;iaC6:2i 
Jtg-.flW.S: «««*!*;« nO'IlSt IS* 
K 1 el 71c MOM MO 1 i 4 1 OM r Id 1( k ' ! 
?OMMtcic»0':«;tNO«;b\S5W 

K0I4TA •feUtKMIcllOlltllOt 

° ■ < r .■»».'> 3 : ■ : - a : '.. - so i H 

b .'kK.:»I00O(.I -.««!;; K4?:t'<C 
OiOOf.f &028(. 70(0 1 ( Ollc* a* . 38 7' 
;.W »•» '88?;r;:ti0eO!'t5t»i 

«M5*;:H!i«i5eMi»io:ti!f:iii 
■ co* toi ;bo2?o i «si»o m e« it « 
. i;:;c:ji.*f»*.f iiicKoH'^M' 

110 MM •:««tMUJ«UHW»»t 
SedV 2) 765(803 7 '63c 2 1 « 12? >5l f , 1 
'01 1 it 1 J02 1 ifc 11 tlSsd .'Bft 1 ' : tfic 
J7000W 'JC 1 ! 01 ;<3t 1 2! 1*20* , ,r ii 

!» (*■» '2l52teJit;BI!f)'i;lt 

5t Wt5> i not 'e ;s ;toic 0*52201 ooo 

u.:.i.i:a):":.4iw>.!:;;«;;!> 
if 1--.1.. ■,■:(••? :-':«'''.:«(' 

111 IWC -!10(?6WK^t«el2;w 

sstc iwa ioo; t< « ociiwi i»i as; 

S : 5M ?Mt i *,K 00, -: • W-mtif j=0> ' 
.-•>;.!•:::» <r :.■■• f ;1-* •'« 
no -.:■'-■ •:«»:.-.■: .'.(•»" ;mv 

1 : tK< »GS8< I f * J* J 'iMMOt C9» 1 • 

)<>rti>;wi owitoto; :5: '-. ii: a; i sw 

021 5Mc Tot 1 2.'2 Bl )) ; cOl 1 1 • . 4SJ2 
180 jvo •IBSe6Jcc48880iii;1S«B 

i«>t i io">otot(5i moo::c '■;■ «« 

Oi s9(e0O:CS5c 1 '; l Jlfc HciTMu IT 
rtH: lrt3JM:i0ert«t :: 11* rSiS 
1W IOTA «(l3<l«!MQl;tMK:iW: 

o ! iei «: v : 3!fc He e :ts« i i o» v, ■■ i 
)-.niia!isae*itBsnMi:ii«ii! 

MB J 1 Set J«S!*«< ?* . a»f M • .^ IW 
100 MIA ■20MM*trf2]«M81ll» 
MS 1 S1W* J0fB»Jt2MM?S40:l?:M 

Ill0lo».ta;;:»wi6Jo;i;:»rfK 
i J I it SC5434 1 3«l6(71f 1 1 Ot I • , M TO 
no Bh:a -.iiicaOOOoaoONOMOoc 
J l;92c dB '8: isOBii * f)0. W n2; 81 

i5» jtof ;bio/i;;< ;o=ttirM02cC 
, .- ( t . ' ■ 'i . . e 5 ■ v . : « * : :■ i * : ? i c 


i(cZ72B02 
fbc-28347 
430 DATA 
e2B04343 

iwmo 

GMifcd 
MO BATS 
e6021005 

[00[d64S 

450 DATA 
600td5H8 




■ ■■ 




cOOedbBdd 






10100cdi4fl?tddI8?3 
6ta;diea?t3tlBi215 

J Sai5<l5e5edl>B21M! 

fflHst&mantn 

n W21tB0OOI5BCi2r5(! 
L015BOI000577e«bOt 

Bjtiaias»f0(» 

e002BOeild7eOkd , ,t 


03b 
ISO 


570 DATA 




67e(e03 , ,5257 
0205b lM53e!Hd 


"504: ( 


0d13EO532 




(9frjf7BbfeH2 


zB 




H2OOECS0P1061 
B5b(E03!BI13eO 

il£O721110rfd3 


570 DATA 
2B!02dd21 
E032B0236 


cJSft 


OW4dl2310lr!57OPU(3 
35100 j3e01 3255-, 4139 
?H52b2i>3frl010917[d3 

3138(000021 llldHbEZOO 


460 DATA 
470 DAT 




mri 




: - : ;!' 




c2b3e07bt 


*«lni 


60011 1400c(b4B 
'808061 21021 10< 


3dd1e04dd4 




Wd3t000add75O 
5Ld(28(',6431 


630 DATA 

05B7HrtM* 
111654(300 

tUHMn 

(20Okdd09 

0'12335c2j 

sJianseo 




l 


4BS227 


lc90000002 




1 ■:.■ 


?7td61 1300478c 


52i7Wt2 
470 DATA 

BlcEicitb. 

SOD OAT. 

teflSeS 

510 DATA 
7!csd435 
»ftf(<]02S 

520 DATA 
M0W2] 5 


'ItOOSO 


3cDl548d" T 4 


14 


W (28051520(41 820 1e5 

td44B?ddeldlle00i:ildd9 
St003i7B')cbii20143j7(9 

5(c3i:df7Bbdd3500(E((5 

7003dd7e04(160b , ,4202 
)4dd<>5cdbB3Bdde!0M7d 


(02bic»708dbb201bl 
B2lb80c.060ill0100t 

■ 4353c! 16003i5t>9cl 

fbB2 8515*0 5b e29E(t7 
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55c 

as 
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■217rtc 


OcdbBBBlBI 
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efeMMi 

IttfMN 


■ 
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5C-lrid7 
H227tft 
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I "I8203ll3!ckll3fcb3li60 710 DATA ' 747*0404 00007E 407 E3 26 

JtilSlHMIrtl Id 1 602tdb B8B3l2Eld2M 27 !00003#I03e62657 EOM07c040(060 

i4U02Mi[db5(i300000WDOM021Ul tOMOOO3t24247E62?s00M7e44167t0 

Fbc2i)2a2J35207t349i2335- F 150I 47t00003#220B0B(00B0024M' 1 2582 
M DATA "20763fc02Si531cd6033B6 780 DATA "3=247b6262C>O(i03c 24247 

l:d b 3B ( Sc03bt20f BI 2 J79C ! Hid 3« eb 7o20M0! C2424 7ti27fOO0O7 :40406 

B23|W183c2i37WHi4SJ«cf«072 O6O7tMOti7Bt(4262627e(iMO3i;203it 

'mMMSLlOiWutHIW^Mt 06(i?s0MO3e203e60406O0000 1 ,3422 
i WTO -MlMTJlSllcSiiUdOU; IN DAT* "7t1W66i627rt{H)042427 

KI(kfsOO2O02lEGlB677d464JB0 (626262M0008080B1B1BIBOOM04040 

. JO 1 Ot t7c J36S1 L Bl Bed ( 2Bf 04k t 40t 4c7 [00004444 ! e 62626200004 04 04 

D 1 7 2 n37S d 77 2 1 1 69 d35200b36 " , 4864 06 M7rtOM7ri J* ;4a6 Ji iOO " , 3 1 [ 8 
) DATA , c&i379dii03in23:W B(0 DATA "007C444444446400007I.4 

iCO0OOSiS29cd6123fl0lik4!24f0 24242627E00003e22!2!,. 

lllMd473E!tt9i)4fO6ie[54IOO10f 242467EO4OO007e427f4444440OO07e4 

:li<H B21319dHct>340f3i50", 4 747 C7e02t,3JeKiOMel010303030" ,3i38 
I '9:(«2![Btdd3K[?21B09 BIO DATA "000M21242b2627(0M04 

:36042H600 1 1 821rt 1 bBOOedbOSiO 1 3 24242723 23eOM04 24i4 at ii e7e00(04 

>9c32391d 3I7[1h( 3354M Iff 551 2«3c7 (62620000424 27 E0B1 B [ B00007 

?571:OH209ed43519c3EO432\5514 cO27e6O6O7eOO240O7e 426 262", 3520 
760 DATA , 219d3e32S2121d21[B02; B20 DATA , 7eO024OO4242tI627sOM 

22<:1d21960l22349d<9007e4i4i42H7 01(10 l«7[3Bl(IOO0M03B7< 101010000 

(WOOOBOBOO I B 1 B 180»07b*2027«4» O0OOBO[7eOt 08000000 10307s 30 10001 

sO00O7c 43>O20e7BOO0O444 4 ■ , 332T ClJllIBMlfltttlHtllSr ,22*1 



NORDLICHT 

SOFT- UND HARDWARE - Inhaberln Anette Langs - Postfach 10 37 71 ■ 280O Bremen 

ZX Spectrum Software 




inahmepau&chale DM A.— 



1ST 04 21 732 47 83 Frisch aus GB 
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Melbourne Draw neu aufpoliert 


RirdenZX-Spmrnmsibm den. a W nicht utMRrife 


»jted ta voriltargehHid rod de. Window enjebenskh 


















vomlw all'di^M-regram™ ^S'n T^w Ko^dS 


^r^rithu^V^o^ 5^fcS?SJ£S?S 










































Draw HJ e'wA Renner unttr Mhcr lllch ^ cillcII , McQil] 






wrdeo An "' Er " ,e ' praeraI, " nSn *• ™" «j** "j*"**j* umfang- 


H 


rEnauoi Utotmt 1 


Attribute ™d^mprimfcrt al! Wte*«l MW 




Tuspeichem. [m giijistigsten tW? 






























r ""TT l: "' : '" ■'?'-■'■' ■"' "t'^n'i^T-ODHun^ ^Da- 


fl^^hmt^bfettf 1501 ' SChn " ^^^^™^^^ 
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ASSI, der Miniassembler fur den 
Spectrum 48 K 



■m Sie audi d as Hilfepro 



Das Abspei- * Hejzahlen nur grnBe (Bap. JJjjg _ 












Hilfsprogranun 


liO LET d=d+<l MB«<2<H)): LET 


W Mt .< cow 


st,s-st 




(.-(.til AKDiDiai 






I REtl © Dieter HDtstlwann 


19) RETURN 




jtRl LOUD " 






JByBLSfe- 














b REN M stun -['60 TO 1001' 
WJ.JP nuigt 


1M lF.t <>"]" IMilOV TH 
EH ED TQ MO 


W FP-uw 
261 INPUT llitt 


des Proirnt; ) 












21) Win "CodtniM tall. tUrj 
















111 IF LEN »*■■!« 3* L£N.«1 








T£H SB TO 210 






155 IF LEU itM THE* LET nut- 


212 PRINT ST 21.0; "Sate ' - [*s*s 


SOU REN dei-hex 




<M IIS ft ): FCffi f-l TO nut 









SINCLAIR 



511 PRINT AT 2l,0;"ln 



(50 RETUS* 

500 m /"ten 
510 LET n=l 
5J5 LEI s-st 



a LET st(fi)- STM 5 




* 5* 




t; IHKO; BRIBHT 1; AT f,24;e 
fi*T,2T0 ): KIT 1 




it 1200, 


1134 FOB f-1 TO 20: PRINT AT 


li BIB s*[200, 51! LET 


-0: in 


JJ- "i NEXT Fl PB1HT BT i-U 


*■) 






T» DIN nil It, 3): MR i 


101 1 LE 








: IF LEW i*>14 Ofl LEU i til 


710 mpin 'StirtitrKs 


V*k 


N Bt TO !20t 

1201 IF if=V THE* STOP 


BOO REN Bruck-l|inr!l" 




1202 If lt="f OH ifcwle' 1* 


"BOSCLS 




80 SUB 2M; EO 10 11M 


BID FOR (=1 it an 




120! IF lM-s* OR itstiw" T 


320 LFSINI s»lf>iV;d 




GO SUB 2*0: EO ID It 00 


m,t to i 




1204 IF if=T OB lt="lnail" 7 


HKPSun =t(fii-.";*' 


!U*<*» 


BO 99 IJt: 60 10 1100 
:!05 IF it(ll="-" THE* EC SHI 


BWKEIT f 




00: SO TO 1102 


BtOPRlfl 10; "lei, -■=--. 


«*• Pftu5 


120* IF il=V OR if"**' ' 



nr: IF dl(n, TO 


60 SUB iWl BO TO 1100 


1 THEN LEI 5,=r 


lit? IF it=V 0Bit="help" TKEI 


GO 3119 301: in 


ED SOS itt; 00 TO 1001 


-rH3 It til LET 


I21B IF i*=V OB IPSWf" THEN 


sy.lll-! 10 l*rt 


bo sub Jftm so to loot 


BO TO 1100 




STM 


LET pn=l: EO SUB Ms LET po= 



1253 IF tfrttf.' THEN l£ 


•lit 


1341 NEXT 1 


130 PRINT "listm ill attr tin 






1S43FES f'l TO t LENllJ-41: IF 


eben (ttj* 






uilfti TD M^'HtMl" THEN LET 


135 INPUT It 






WMthl: LET ti*-Ji*(3 TO i) 


140 IF Jl'V THEN 00 TO 200 






1314 NEIT f 


15) IF ft-¥ THEN 60 TO BOO 


)'": LET ejld.l:^": LET 




1350 FOR 1-1 ID SOD 


160 IF *Kf" THEN BO TO 1M0 






135! IF qtlf, TO LEN ul)*ut THE 


170 If *■* THEN 6D IB 1000 






* LET Bflill=i]*«l! LET 1= VftL o 




1241 IF Ltlul'-i- THEN l£ 




llf.lHI; FORr^TB LENht-lj 


200 INPUT -sUrtBunltiM 


rtl: LET M(nr)-iiiu IB !: 


LETr 


LETeHd,l-9)'h»( LEN M-jli MX 


300 INPUT -Belthl'iqilll: IF st 




6DT 


I g: 00 TO 13" 


a,H»1" THEN 60 TO 120 






1355 NE1T ( 


100 INPUT 'Hticmte'stti LET oil 


I2W HE IT u 




13i0 PRINT ST ZlpO/Fil^ihsEin 


1,11' SIR* 1 LEN tf); LEI 0111,2 


1275 LET M=" 




gstE !": LET J"JM: BO TD 1100 


TO LEN «tl)=tt 


I3W FOR 1=1 TO LEU ill 






500 mm i; t«4Htan tab i 


1320 IF CUBE BHlJfl AND 


CMC 






iittl<5B DR CM IttflX 


MID 


Ha up! program in 


iW LET 1=UI 


CBDEItlfK71 THEN LET h 














BOS FOB 1*1 TO IM: PRINT !;'-> 


1330 HEIT f 






•Vmi- : >tlfl 






ktnMur 


BIO NEIT f: SO TO 120 




COD 


1M DIB n((J0O,H)i Blh DK3M, 


1000 SAVE -ii 1 WIS (lOi SAVE "o 


E iitlf)>47 Ml CODE uiifXKBF; 




' MTfl oti.li 60 TD 120 


CODE UHIIH4 AND CODE 




120 PRINT "Feld laden if) Oder 


1200 LMD " jfiTfi sd.il LOAD " 


71 MS LET rtffl»T 




sppic ern s 


DMA MO: GO TO 120 



SpecDrum 







SINCLAIR so 



Loschen und 

LIST/LUST fur beliebig 

viele Programmzeilen 



urns ware RANDOMIZE 









100 


IF chock Osujime THEN PRIM' 




er !■': STOP 


110 


PRINT "USR = ■ ;adr + l 


-,'<«i 


DATA 231, 254, 234, 33, A3, 23: 




,205,59,45,223,254,204,32 




,54,231,205,59,45,223,254 




,13,32,45,205,153,30,120 




,254,40,48,26,177 




DATA 40,12,197,225,205,11' 








,237,91,75,92,213,205,153 








,177,40,10,197 




DATA 225,205,110,25,194,1: 




,40,24,3,42,83,92,209,229 




,237,82,2^5,210, 139,40,23 




, 205 , 229 , 25, 207 , 255 



Programmzeilen listen 



I 2 3730+ 25 A* PEEK 



i FOR x=adr+l TO adr+i: 
) READ byte: POKE x.byt 
) LET summe=5umiBe+tiyte 



200 DATA 62,2,24,2,62,3,205,1 

,234,32,76,231 

, 205, 59 , 45 , 223, 254 , 204 , 40, 9 



Programmzeilen loschen 



2 REM 

3 REM Aufrufi 

4 REM RAND USR x: REM n TO * 

5 REM 

10 LET raratpp=PEEK 237 30+ 256* P 
EEK 23731 

20 CLEAR ramtcp-90 
30 LET aQr=PEEK 23730+ 256IPEEK 
23731 
40 LET sumne=0 

60 READ byte: POKE x.byte 

70 LET 5Lnnme=5umrBe+byte 

90 NEXT x 



DATA 237,' 
53,30, 1 



205,59,45,223,254 
,205,153,30,120 
B,2b, 177,40, 12,197 
110,25,32,31,205 



19,213,229,237 

215^209, 2I3J 229 
,82,225,32,240,207 
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Spectnim-Quickcopy Saboteur! 

. s-s 5S«. s;„ ,t, s *"-=". 





*" 


Spiclfjgur laufcn. s 


^st " : ,_" 


M-Code zu Quickcopy 

I5S28 17 17 « LD DE, 17 
. 175 XOP a 




kkLKm, Aft due 




ilH^^^^^^^^i^Hi^B 


111 33 a39 E S9 LD I* 


35533 


§■■■■■ 


■: ■ . :^H 
















i tH 1 rv • 


25535 63 255 LD CI, 255 








17 1S6 LD DE, 3B 


25630 




■ 


20545 2SS St 5 CALL 136| 
















255S1 237 Si SBC HL , & 








































Ml _ 30 P |5 LD IX 








I ~ 3 O LD DE, B 


2 








2 S6 * 






■ '■''.'" - :. V; . i"-' 








Quickcopy 








! = CHfit ( PEECn): KE<T n; LET i 


1MLET IF USt 55535: IF (i OK 
5 THEN PRIM BRIGHT |j' ERROR 




120 BEF FNftlll* PEEK <*25fct PE 


; ';< Bytes ausoelesfn "s REN 




EE fHlFI LEI leri^FN hirii LET 




<•> REN hy B. Prraaiir I9B5 


idr- F*B^*Si LEI bss= FN ill* 


IW INPUT -Neosr Nil:-: -;iti IF 


ID CLEM 25519: LET S*=M11100 


134 LET ^["Pros™! 1 MD NOT 


lIBWl POKE 255B3iniraO£ stln 


If 37 M2 1 Bf 13r ffilDSBif SrtjBf f 1 1 04 


typM'trrjy ■ WD (jflH-lt 




It 3 7dd2 [ OOMcd 5*052 1 OOfc *1522b2I 


-Array ■ AND typ=2 > -■ i ■ (1- Code ■ 


100 PRINT id; 1 SAVE "jsV'toid 




WD Lip-II 






1W PRINT ■ INVERSE !;■ , t»]' 






: "ss*s" *: PRINT " Besait lunge 








320 IF IHKETt-" THEN 60 TO J 


ll-nl'^/Mssivfltir'" 


150 IF typ=3 THEN PRINT ■ Star 


"sjO MIMJII1IE HSR 2551,0: FOR . 




ltO IF NDT tvp THEK PRINT " 










HE USD 2H20: INPUT " 






110 LET «=!55B3: LET lyps PEEK 






i: FOB SFItl TDlUtl LET dln-i 


HEM PRINT 'ill lffll}!"i GO TQ 100 


00<20M(i (=':■(: m Pr„,ra« 
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ON ERROR GOTO 

ZX Spectrum 16/48 K 
nngi ( | 

seat don da. Progranira for,, dem aiif die Rkl,i v .l,!i ,1,t .,: 

ti-ierenunddanachder. Sprung Ei „ a™^,,,,^,,,,.. 




35 IF d=l AND n^id+21 THE* POKE ji,5!l LET n=n 
tjl POKE n,5?: LET «tail RESTORE 15 

io ier ii 

42 POKE id*7,INT l(id*21)/2S(l 

43 POKE idt4,256Mlid»21)/256-PER (id*71l 

45 IF t.05M2 THEN PRINT PLASH i;BT 10, ifft 
hler in den Zeilen 10-35" : BEEP 1,-20; STOP 
50 PRINT ■ tjtwIeMerPrsi" 
52 PRINT " -Stir tad r«Mn : ■ 
55 PRINT ■■FunHion iktifieren: ";ad 
57 PRINT '" " insktiyisren; 'iad+12 
60 PRINT AT 15,0;"- CONTINUE mi Savtn in Iffi" 

70 CLB : PRINT ST 10,6j'SAYIItS MDE "nft'.'lS 
7-2'd 

k 3a;; -ii, 5m ■■:h-i iwiicobe id,57-2id 

90 ew 

95 «■ 

90 ■■■ ln\frc;im 

r> i£1 

tore- mucta FeUmd, 

71RE1 

10) LEI i'-Nd 
MOLE! imlfid<12 
115 REN 

120 RAMON HE USR ikt 

130 RSNB0NIIE WOO 

135 HEN 

140 INPUT -ft-tni si; iroendstajs Error er- ;;u; 

145 REN 

150 RANDMI7.E IBS injkt 

IMPRINT AT 10, LOj-Kein Error": STOP 

ISO REN 

190 REN 

1000 LET e=P£El 23610: INPUT " 
1010 PRINT t0;CHRl (49t!'Ji(t)71l| ■ ■; 
1020 IF e=l THEN PRINT <0; 'undefi niH-te Viriibl 


Hummer (Otoe USR)fcstle S en. p^/mm™MmprobiereH 

rorhoivDnjerofeneiiSiii-.iriKlif ' Wilder Routine niehtdiircrl 

■..■.;.■;::..■■■■.■.■: ',„ ■'.;-■', '■■.' I 


1 HEN ON ERROR GO 10 

2 REX lilHIIIIHHIIHIHHI 

3 REN by Lnreni taller 

4 REN Albr.-tuerer-Str.S 

5 REN I2<!0 HILDESHE1N 




1040 IF f=li THEN PRINT 10; 'STOP t>ei Eir.gabe"; 
1045 IF e-20 THEN PRINT IO;-]etit nii lehr BRE0 

1050 PRINT t*,', -jPEEC 236621 25S'P£EK Z3i63i"s" 

(PEEK 21664 

1060 PAUSE 0: ELS : GO TO 100 


13, 4!, 92, 5t, 3, 35, 54, 17,201,11,3,1?, 229 
15 MM 217,75, I1B, 92, 11,15, 39,117, 237, 64,48, 

2, 207, 146,(2, 69, 92, 11,110, 72, 53, 71 ,92,50,112,92, 

205,106,30,195,158,27 
17 L£T ad^65000: INPUT "Start bt>. 65000 7 (id 

21 LIT ad-PEEK JJJWaWSt 2371M 

10 FOB n-sd TD ad*5i-2id: HEM t; LET mm P 
□KE n,c 


Videopool zahiTid^chl^fct*'! 
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MacAdam Bumper 


Dukes of Beta Basic 




Hazzard User Zeitschrift 


















































4™ ^" na n H°di m L nk 


.- 
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Assemblerl ips fur den Spectrum 

6. Teil: FlieGpunklarithmctik in MC-Ptogrammen 















OM _ gibtaucIieLilenCuik (341. del 


StBjKfeKsUMt. 














ft-|irivlLrtoj-dsn-.ehrK.-17.^i! 


«* B^f** 


W FmfcibW ■*«■„. 


i/ll!" "-' Mvr'if Cl's'''' " V* 
























































"!' ... .. ^h" r h J' n ut I der -'^ 


Swkh™ ZUHmnU:B!lBilE 


■ ■''.:",■:'■ !"V.: i,: '.' 


riableMEMemh:;!' Norrciakr 
*=" weiHisI iliis HQMUO-I . A,- :- 

ih " aiittimctische rJiK-vj:;,.:,,: 5 ";. 


«>n RC Mi J.M Siapil lliiEtT- 


iiHf 


™ B. SOK) zersloreu di-n Inhiilt 


nhpiwWsS.W^ ' lm "? : . l ,' L " 


■ ■ ■ ■■ 



hncllscllt Opentiooen Sprungdisia 
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LD HL.MEMBOT 


Uieder HEHBOT als 








LD (CEMl.HL 


Spelcherbereich. 








RST *28 










DEFB »£2 


5BR1R*R-X*X>,X 












Fazit: Der Kalkulator tann M 


den Problems aumulztn. 




DEFB *38 




Ar'gW ™ <*»»» Assem, m. 


•?"*" 




CALL USTHL 
LD (XOFFl.HL 
CALL USTHL 


X -> HL. 


Listing 1 






Y -) HL. 

Y speicherr.. 


i MC-Program. i 


■ Kreia-Zelchnen 




LD BC,*e04 


B 1 C Us Zahler. 


ORG 232 ?6 




fLOD 


PUSH BC 

LD HL, (XHPOS) 


BC nerkeit. 


5TACK1N = MC81 






LD BC.IXOFF) 




STACK2N = «C79 






ADD HL.BC 




UN 5 TACK = »2DA2 






LD A,H 


PLOT nur, 


ERR_B = »1E9F 






ftND A 


falls e<=XK<=255. 


PLOT = «22E5 






JR NZ.NPLOT 




5THRET = «1B76 






EX DE.HL 

LD HL, IYMPOS) 


X-KDDrdlnate -) E. 


ERRSP - 23613 






LD BC, (YOFF) 




MEK = 23456 






ADD HL.BC 




(1EMF0T = 23698 






LD A,H 

JR NZ.NPLOT 


Y-Kcnrdinate 
errechnen- 
PLCT nur, 


BTART CALL STACK2N 


Hittelpunktkrordl- 






falls B<=YK<=17S. 


CALL STACK IN 


naten (XH.YH) und 
Stapel legen. 




CP 176 
LD B,L 
LD C,E 




LD HL, HEHBOT 


Bereich MEHBDT zur 




CALL C.PLOT 


PLOT-ROM -Routine. 


LD <MEMJ,HL 


Zwlschenspeiche- 


MFL.Ci 


LD HL, (YOFF! 










CALL NEGAT 




RBT *2B 


XK.TM.R 




LD (YOFFI.HL 


X- und Y-Koordina- 


DEFB *31 






POP BC 


ten abHexhselnd 


DEFB *04 


XH.YK.RW 




BIT 0,B 


ait -1 lultlpil- 


DEFB *C1 


R#R -> Speicher 1 




JR Z.NXNEG 


ziert und unter- 


DEFB *B2 






LD HL, <XOFF) 


einander ver- 


DEFB *A0 


XM.rM.a 




CALL NEOAT 


tauscht, se daB In 


DEFB *C2 


-> Sp, B <- X] 






den S Durchlaulen 


DEFB *02 


XH.YH 


NXNE 


DEC C 


alle 6 KnWlinatin- 


DEFB *3S 






JR NZ.NOEXG 
LD HL, (XOFFI 


nen auftreten. 


CALL USTHL 


YM -> HL. 




LD DE, (YOFFJ 




LD <YHP0SI,HL 


YM apeichern. 




LD 1YOFFJ.HL 




CALL USTHL 


XM -> HL. 




LD (XOFF),DE 




LD IXMPOSI.HL 


XM speichern. 


NOES 


DJNZ PLOOP 




MEXTX RST «28 


St ape 1 leer. 




RST *2B 


Stapel leer 


DEFB «E1 


ton 




DEFB *E2 




DEFB *E2 


R*ft,X 




DEFB *ftl 


X,i 


DEFB *31 


R*R,X,X 




DEFB *0F 


X*l 


DEFB MH 






DEFB tC2 


X+l -> Speicher 2 


DEFB *03 


R#R-X*X 




DEFB *02 


Stapel leer 


defb %ae 






DEFB *3S 




LD HL.BUFF 


Speicher bereich 








LB IMEM1.HL 


unlenken. 




LD DE.1XCFF) 




RST «8 






LD HL.(YOFF) 




DEFB *29 


SBRIR*R-X*XI [=YI 




AND A 




DEFB *30 






SBC HL.DF 


qr-oGer als Y ist. 



Computer Kooraki 3/86 




SINCLAIR 26 






IP C.NEXTX 




SORLP INC C IZahl gerundete 




LD SP, (ERRSP 


iStatk loschen und 


INC DE iUurzel dss 




JP STMRET 




INC DE ilnhalts VDn HL. 






; Basic-Interpreter. 


BCF 

BBC HL.DE 


LIETHL 


CALL UNSTACK 


iOberstes Stapel- 


INC HL 




LD H,B 


iElenent in BC ur.d 


JR NC.SBRLP 




LD L,C 


iin HL bringen. 


RET 




JP C ERR_B 


IFalls > 65535. 






RET Z 


JRET, falls pasitiu 




ICBAT 


LD A,L 


jDiese Routine 






CPL 
LD L,A 


jkonplenentiert den 
llnhalt von HL 


Listing 4 




LD A,H 


iCer-Kompl.l. 






CPL 




10 REM Routine zun schnellen 




INC HL 
RET 




20 REM Zeichnen von Kreisen 






30 REM Prograiniautnr: 






10 REM Michael Schramm, Kiel 


XMPOS 


NOP 


iHier Herder. 


30 DEF FN A(X»J=CODE X*-48-39* 




NOP 




IX*>"9") 


i-upqs 


NOP 


labgelegt. 


60 PRINT "Einen Augenblitli bit 




MOP 




te - die" , "Maschinencode-Routi ne 




NDP 




wird","uorbereitet.' 




NOP 




70 LET A=23296: LET S=23116 


Y0FF 


NOP 




80 LET AS="cd791ccdBllcef 31043 




NOP 




82 1 000922c d5b2 2c 95 be db 45b 22c i 5bc 


BUFF 


END 


;Z«i5chen. P eicner. 


db43b22c75bcdb45b22c55b2acf5bed5 
bcd3ba7ed520I + *001H : e-f f0cl31337e 
d 5 2 2 3 30f 7e d 43c b5b0608c 32ac 55b e d 4 


Listing 2 




bc95b097ca7Z015eb2air75bed4bcb5b0 
97c a 7 2 008 7d * e b0454b " 








90 LET A*=AS+*dce5222acb5bcdbd 


10 


LET XM=128 


LET VM=B8: LET 


5b22cb5bclcb40ZB092ac95bcdbd5b22 








e 95b7 8 efi033d 200s 2 a c 95bed5bcb5b22 




LET R2=R*R 


LET X=0 


c bSbed 53c 95b 1 0b 1 2a c 95b 2 3 2 2 c 95b eb 






SQR <R2-X#X>+.5> 


2acd5bl9192b22cd5b2acb5b37ed32dZ 




PLOT XM*X, 


rM+Y: PLOT XH+X.Y 


2 5 5b e d 7b3 d 5c c 376 1 be d a22 d 606 9 d a9f 




PLOT XM-X, 


m+r: PLOT XM-X.Y 


Iec87ded446+7c2f67c9" 








100 LET X~16*FN A(A*(1))+FN A(A 


30 


PLOT XM+Y, 


rM+x: PLOT XM*Y,Y 




w-x: 


PLOT XM-Y, 


fM + X: PLOT XM-Y,Y 


110 POKE A,X: LET S=S-X 








120 LET A*-A*!3 TO ): LET A=A+1 


60 


IF Y<=X THEN STOP 


130 IF A*>"" THEN GO TO 100 


70 


LET x=X+i: 


GO TO 30 


140 PRINT 

150 IF S THEN PRINT -Fehler- in 


100 


REM Kreis 


eichnen ait 


At 1 ■ : STOP 




mDegli 




160 CLB : LIST 169 






170 FOR 1=1 TO 30 








180 PRINT USR 23296,200-1,50+1, 








30+3*1 


Listing 3 




190 NEXT I 


S8RT 


LD BC,*00FF 


Die5e fi ou ti n . 






LD DE.-2 


berechnet in BC 
die zur ganzen 





SINCLAIR a 



Beta-Disk-Interface 







Hardware — Spectrum — Hardware 
Pie T aataturae nsations 

SAGA 3 ELITE 
Fur Qraflk-A nwenderi 

SAGA GP/SAGA STYLE 

Touchmaster Graflk Tablet, Datapen Lightpen 

Fur CP/M-A nwend or : 

ZX-CP/M-SYSTEM 

Das Auf steigersy stem 

Die Pruckcr q u a I itat : 

RITEMAN F + 



Highway Encounter 




Nightshade 



Mtht.ilai- urn Alien i 



RliiVI-Fiiller 




IC hiN R f M 




84 BELIEEIOE ZE 


a aouE 

3 PRINT 
* INPU - 

b let e 

III 


■'uTeuiel byte ?" 
•int iR/asei 

16515, B-Bti5t 
19916, B 
U9P 1991*. 


:e rem 
sa for b 
as input 
a* poke 
a9 next 


■19914 TO 16537 
B 
4,B 

"LOE&CHE zeile aa-afi" 


Daten 






eaa ai3 


!8S IS! 8!I SH lit !88 

aas e39 las 33? is* aei 
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COMMODORE 



Floppy-Kurs fur C 64 



■ ' ' ■■■ - ; : :■:■■■■■■■.:•■.■-■ :■: 



Computer Kontakt 2/86 



COMMODORE 






-,:'<7,.;-; 









t 2000) bcsita zwei Aufga- 



li? 


1^"; 


,u^Zek 


r HinrcrsrundMor- 


iil(3) = 






, V" 


e a llmcn mflgft± 


iil(1) = 


s 


■:;;; 


Swdcrt 


™" 


IS 



Computer-Kontakt 
hat preisgunstige 
Kleinanzeigen 



Computet Kontakt 2/86 



COMMODORE 



Beispiel 15 



18 r 

(SB dim na«CI0C 

30 input ■autor 

4B *or i-1 -to 1 

58 if sb«»n**(l 

6B n*>t 1 

78 print "nicM 

88 goto 3D 

98 print "recor 

188 

Beispiel 16 



Practicalc 64 



48 It sb«=ns«(i> then 88 



Beispiel 17 



38 Input -»utor I "Jab* 
38 for i-1 to IBB 

48 it sb«=left»(n«*<i>rl6) then 88 
SB neit 1 



ight*(naS<i>,4>) 



Beispiel 18 

18 rim ***** bi 



Mr. Do 



4B i»<8>*rnd(0> 

43 print », 

58 gosub 188 

B8 nut a 

78 tori* 1 to see 

8B print ix(i>i na> 

38 end 



l)>llc(8> th*r 
■ix<8> 



Computer Kontakt 2/ 



COMMODORE 



Superpokes fur den Commodore 64 






,-. :_Hi)J^iMiKKrt 16475,173 






COMMODORE 33 



Master-Grafik 



■ : 


MERGE crlau 






k ". ::^: 


K^ 






























fll^t^ssr'' 


E™2to™ 






























MOglichkcil 2111 Uiurchnni 




















men-, Hinlcrgrund- und Cu 


llemsller: 



/.e.yekn 



^fn Quiwi 

inn nlrht Qji ft i is' e i r9 Ouizspifl filr 1- 



tr "i 



COMMODORE 



Formel 1 
auf dem Commodore 



IB PRIMTCHRBdl" 
SB PRINTIPRINT" 

22 FRINT^PRli^T- 


JpH by _ 


270 DflT«e,a,0,B,B, 33,254 .234 ,254,2=4 ,£58 








0, B, 8,8, 0.0, 8, 44, 333, 332, 224 ,2£4, 160 


SB PR1WT1PRINT" URITTEN BY CHRISTIAN 

T E MINUTES- 
SB GETflll IFfl»-""THEN98 
91 PRINTCHR*<8> 
170 R£ftDQ:S=S+Qi IFOO- 1THENG0T017B 

IBB F0RK-e3STQBS5"READQ:P0KEX,0;^MT 


Tea's 




350 DA 




37aX« 5 5,a,0, B ,e,i, 1 ,£, E , 5 e, 1 3i, 1E 7,i £ 


aao^ 












39B Dfi 




2 IB SrS832iPOKE850,lS81PBKE5G576,PEEK(56 
57G>fiN0252:PGKE53372,a!POKE64e,i9e 

33B REflOZEiIFZE=-lTH£NS90 

240 F0RT=BT07iREHDa:PDKEB+ZE»atT,QINEXT 

345 G0T0238 


4B8 DA 




430 DH 




430 DA 


l^iTa'm'^Ts^s'wM^ 7 ' 


55,38,8,8, 0,B,6 


''"'ESB's^'e^aalse E 


**" B » 

















COMMODORE 



«■ 


Ttt^&tfe'Sg&KS;''*' 1 


"1, 


»«"^M 


« 




n* 


■i 


,88,84,02, 






































tt a . 


DATA16B,171,lBS,83,,,e,8,42,I7B r 154, 


:ais 


DflTfl 3 B9 C 4 




-■"; 


" 






«;."' 
















28 'bo BF 
















500 


DfiTfti6a,i68,i7a,i7B,iae,Ba,,,,2,£,io 


':i.:: 


aHTfi 8 C2 B fl c 


::'":-' 


' 


■ : 


j 


31*80 3D 




DftTft 184, 31,,,, 128,1GB,16£, 174,173, 32 






































































533 


BHTABS, 117, 117, 85, 85,35,85 85 85 87 


C2 H9 














."";. 














"Z 


































4C S 0B 5B 


































z?v 




■ 








































































































■" 


FOB 1 -2£B30TO£37BB : REHDfi* 














££0B 




3-H(H>t!G'HCL>:S>S*0iP0KEI,D 


■ . 
















(EflDV:Z=ZM:IFV-STHEhJ988 


:"- 


SV?j? 


■ 








S3». 


s 


IFH<8THEMS-eifl-aieOT02BBB 

s=a:fi^9ihCMTig-aipi'0::'B!GOToa0BB 


;» 














iBB 












2733 ' ' 




















c- 9 : 
















S4S1 


















£703 




















































■ 














■ 






























































if; 






1B41 


HTfl Bl SB 


rr m 


. 









DATA 6B HD C3 B£ £9 Bl D0 0C,AQ,E3 


















flD 3 D7 82 










.., 












£581 


:pii . s 






:?■; 




s& 


■■"■■«•■ 









— COM MODORE 36 

Cotnputar KentaM 2/66 ^~~"^^^ZZ 



3,B3,Ffl,B3,4C,EE, 












BB S BB I1 BB%e a E3!aB!aB eB!Ba!43 B i3^ ' ' 
























1051 DATA 15,DB,B9,£B,8D,13 


DB.A8,eB,8D. 


1884 DftTfi FF,FF,FF,FF,FF,F ,^_ ,^ g 








Eeee S=BiFORT-BTi363!FORI=BTD5:REf«)0:POKE 
2B00B*T>23e»J ,QlS-S*0>PCKT'hEJ<T 
28 IB IFS<>384B5-raEhPRIPfTCMR*(147>"D(1TflFe 
HLER ZU15CHEN SBEB lift) 2S3B' 
































L9.0.' 


FB,ei,6B,A9,efi,8D,EB, 


"J |q B B „, 










1056 


^rafEB 2 ^'!^ 9 ^^ 


lB.Q4.fiE,Efi, 


EoWd»TA 34 ,£B?'8. IBB. 39, 18, 43,213, 13,1 
2B5B'DnTfl £8,89,3,196,43,118,33,13,3,196 


;f ' r 


DflTfi 8E,Eft,ea,BD,20.4E 


3. £134 
D4,BD,SB,3£, 








',,'.'' 


^s^w^Sffi^w! 


"'eIsg 3 '" ' 


.38.13.33,18,9,136,34.aB7 ^ 


;■:-* 


3B,C3,C3,6E, 


E88B DfiTfl 3E, 213,6,133, 34. £67, 33, 18,8,55 
£838 DSTft EB.EB, 6, 133, 38, 18, 32, 213, 6, 133 


'■-: 




ftE,ae,BD,7fl r 










1064 


DATS 64,FB,B4,CE.DB,C3 
,CE,CF,C3,flD,CF,C3,C9, 
□ftTfi FB, 81. GB,«3, 81,80 




sua DHTft 43.si3,ia,iB,38,is,i7,iB3,a,ia 

B ,34 ,287, E6 ,£B ,8, 188,34 ,£B7 

EIE0 OATfl 34, £87,8,138,32 ,219, 43 ,219, 13, 














B3,aD,cB,ci,cn,[)e,F7,Be ; eD B 


B db F7 5 ftE ee 


Ie"»^5 ei3,lB.£47,3£,219 








SIM DHTfi 14. 16E, 7, 81,34,207, £8, 63,7 ,81, 








ua .:■ 




,CF,C3,ftS,64 




■ 


,c3,fl3,e0,fi2,ao,3B,ce 




1869 


D FB H eE D fiB 8 6"fiE C 8G 9O 


7fi '2737 


2178 DfiTfi £3, 59,3, £87, 48, 118, £3, 69, 5, 287 
































,ae,ftD,F7.Be 


3 34 287,38,18,3, 138, 34 ,EB7 


*Sj 




£££B DfiTfl 13, IB, 8, 133, 39,1, 26, EB.6, 133, 3 


















* 




fiO, E1ES 


3B1B FORT*3TO38!REflD0IP0KET*SBI76,0:l*KT 




a D 0i°SB 3 EE a B6 83 HE 85 


' 5, ,3,255,, 3,233, ,3 ,S35, ,3 ,2S5 , , 3,233,, 
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COMMODORE 



3021 W.TA252 




SBBB PHKE5857B PEEK ( 36576 >ANDE52iPOKE532 




32 : READS : POK ET t 582 40 , : hCXT 










, 10,250. ,11, 


34, , 5 .93, , 9 .86,, IB, 38,, IB, B 


8810 P OK E5 4285,99: POK E54B9 I ,9B>POK£54282 
,7B:POKE5O127,18BiPCmE501BB,l00 










3S I READS 1 PDKET<5B304 , : hCKT 






,236 , , ,252 , , ,252 , , ,255, , .SB 








3B30 P0KE53254,137iP0KE53231,lB4IPOK£53B 


30SO DfiTfl.SS 










9B3I P0KE53288.6 


30432 ,01 t>EXT 


,10.FORT.4TD14.READB.POKET> 


9B40 POKE53B75,BBB:PnKE5324a,l00>PQKE532 


3il0 e rj°TPM5 T 


&,,u,m„n,ilm„n,m 


B06O DATA200, 126, BB 








!ss!ies!?59; 


S2,,59, IBB, .39,128, ,53,138, 


3830 FDRT=728T0726>R£flDQIP0KET,DirCXTl£lfl 




23 : READS : P0KET*5B624 ,0 : l-CX T 




3 ill e «? n fil 


132,, 187, 128,, 187, IBB,, 187, 


8 IBB F0RT»728T0734iR£ft00>PDKET,0IIOITIDfl 


3160 FORT- IT 


2 8 > REAOO = POK£T*5869B , Q 1 hEX T 












912B FORI'lT01BIREADB:READU:PORT-QTaB*U< 














ITssTl^tl^ 








l\tt Fo'rT^II^TOSBOsTpDKET ■BB.POKET^ 


3210 DATA234 


224 ,S ,234 ,224 , 2 , 234 ,224 
















IE : READS I POKE T t5B944 ,D! r*TXT 










3260 DATrtlE - " 


,63,48,,, 252,,,,, 3,,' 13, 192 


















3230 DATH48. 


.48,48 . .252 ,48 , , ,252 . , , , ,3 , 












3300 F0RT-BT062iREADEiPOKET*51136,Q"NrXT 








B21 1 POKE5429B.90 

8220 PDKE54B91,70!POKE54292,9iPOKeS42SB, 






















?0 3 ?32 flTflEB4 


0,63,12,3,48,3, ie,B,9,S4B,B 


8258 F0RI=55296T055695iPOKEI,B>h£MT 








3 B S ?™?95 


iel's4e' , l43'*e'a4e B si 5 !s 3 '' 1 




W^M^B^a 








8280 F0RT"3B133T03B139iREADBiP0KET.a:r*:X 






^POKE3°403^E 




8290 FORT-58053TD50033iREADaiPOKET.Q>rCX 


3330 FORT- IB 




-pWTA28,5,13.1S,13 






8300 FORT^S0035TO5B84«iREADQiPOKET,OifCX 


3400 F0RT=7TC 








831B FORT=5B0e3TO30OSe"POKET,100"h£XTIFO 
RT-5BB42T05B843 1 POKET , 1 08 > l*XT 






















...«..»... 


' 


,.POKE759,100 






COMMODORE 



!T*3B115T05B11 
!T"9B3Tt>a07:R£ 



aaee • 

9623 > 



Directory i i 
Farbe 



EiREHDQiPOKEI.QlhEKT 
32 DftTft lSa,lB,24,3E,£4B,E53,lBE,B,189, 

S, 32, 3E, 32 '32^32' 

3S DftTfl 83,7B,71,46,46,4S,46,5B,141,3£, 
B7 DftTfi'aaisE '3a ,66,76,65,35,46 ,46,46,4 
199 DftTft 46,46,46,46,46,46,51,141,32,32, 

32,32,32,32,32, 
6,46,46.46,46,4 



I DftTft 32, 223, 255, E 



I 183,46,164,32,2 



310,255,232,224,1 
42,J69.73,3e!e1b'e55,3 



COMMODORE 



Der Turbo-Assembler 












gl I™* 




Wer kann Hilfe bei 

Adventure-Spieleri geben? 

Wer kennt Losungswege, Tips, 

Strategien, Pokes 

oder ahnliche Hilfen! 



COMMODORE «, 



Sechs neue Mastertronic ,«"«„,; 
Spiele 



Player's Dream 










S^B* 


;. : ' " ■ " ..' ' ' ' 






l*.iv[>el[.imkl 


ntbalccn. ivej- ktrii- RUNSTOP/ RESTORE 






lalk-n. IXuh 


ndimdei.Wi.-r- ile-iiklmcn die Routine. Sic 








AD(49152)ia kann mil SYS Emopjunt- 






es iraiglicll. 




























vi^^A-M^Cn™-' 




giamnigebden 


undgeaariet. taeinftaasv g^shiteiaei. n* 




iia re" 






PLAYER'S DREHM I 


^zSth ei ™r o™** ai d 


i"*K>« 




* A ' 


II 


TfiSTriTURBEL.EGLING 1 • 

it) PROGRAM* BESCHLEUNIGEN ■ 










198 REM 


































ROUTINE FREI 1M SPE1CHER t 








VERSCHQBEN WERDEN. . 










^,r^7!incn'vW.S- 


Etae gut G. a rik. nrarigf* 


368 " £W 


iiiiiiiiiiittiimit ***«*t«t*t 


''hJtpjT U 


Bob des Spieler, zeiehnen. 
pee Hunter" >». Ziel des 


m ? D "' S 


m 




Tt™fE,de' S ^'Le e b!^mh 


310 PEflD 


J1POKE I.ilS-SM 












nfielin Stttiuyateme aufge 






Sf% X 








v— 2% I 
























Ib 4. 1 ■ 

■i'-f •»! ! 


SsSSH 


3SB DftTrt 


EB,1E9,BBB 1GB BBS 141 




SmSSSZbS 


J2 qht" 






*y v*J| 


™d*Sl: 


iH IE 


il:S;S:S;H;E:E 


















™ * i 


efTdlc dner ^dfe^ 


211 EJJJ™ 


4^E34 ' E53 ' E " a ' eBB '"'' ' B76 



COMMODORE 



Epromprogrammer 
Zero 43 



Ztio -.- P t ' i Sdi b«i einra RAM-Beiei- Vide dii-Si/c Muslsc 

i ,.!i: l >Likilyr'io.ThaltIh.h Tn- the. ai,r,!n rp;f>m, Viifleicli s-IhVcii bciMatprogian 




PHZHT ! 



Pastfinders 




Malen mit dein C 64 



wires (hiechleck). KO.X lii-jsfefiilltcs 
idir.,,! ReclneL-t). DOT (SeHen von 



! Ihr direkter Dnlhl 

zur lledafctions 

Telefonfl7IS2/42948 

Fur Brk'fe 

Computer Kontakt 

I Postfai'h 1A4U 

7*1* Rieiteii 



COMMODORE « 



The Little Computer 
People Project 




Computer Kotitakt 2/ 



COMMODORE 



Wintergames 



±ii k lion-? u .n^lii linear, urn ^ncef yei 



„< 




■ ■ 


u» 


... 




1,. X 




f 




i 


I 


paqeklive. ak audi sa 
momenta™ Slandpunkt 


I 


W 




" 


'::: 




■ 




























f. 


u'iST^Sb 


";:*: 








cjmfe 






L-nil, :l,-^;n. 






























' 1 


',"■; 


a 



itcifreat und Captain F.nu,e Sflie!en . 



-; Spiels licgt JMiuc): ar 
■ die Schv-ierigkci. a 

Spidmolivauoci 



B Typen von FciwJjagerr 



■ -.:.!■ ■ ■ :■ ■ ■ . ■ 



Planet of War 









COMMODORE 



HANS - Hackers Network Service 




<§ 



Kprasenttert Spezialitatett 






i««*i 



*A»^ .*»■"*& 




*»* / 4 



••■' **»; 




CK-PROGRAMMSERVICE 



CK-Programmservice 



SPECTRUM 






rWr ,.SWI. S», 1 , f n<l,:,, : .„n m , ..H,: f 4l. (J.S, Ife-IM.,.*,, 


Schliiltie n-r li.5^), Sprcemim-lnfnsyit™ (.i«S 

Best-Nr. S 20 


20.- DM 


Best.-Nr.S1 20.- DM 


Die neuo SpMrum UN* »N Gfe»* t 


vrall . 


Best.-Nr. S 10 20.- DM 


ftMLpcetCllWi.NitioJuedl.'Sil 

Best-Nr. S 30 


15.- DM 


si-was 


Sonderpaket 




Be*t.-Nr. S 11 20.- DM 


SSttSKf*' 


65.- DM 




Tl 99/4A 






Best-Nr. Tl 1 Diskette 26.- DM 
Best.-Nr. Tl la Kassette 20.- DM 


Best.-Nr. Tl 12 Diskette 
Best-Nr. Tl 12a Kassette 


26.- DM 
20.- DM 


"■ i '.'■!■■ ■■ •' ■ r 

(BW),Pi<. ( l™ i m.«SJ.Rnt a t i ™c™:i.V()t.bBl(»»5j 

Best.-Nr. Tl 10 Diskette 26.- DM 
Best.-Nr.TI10aKassette 20.-DM 


Sonderpaket 


60.- DM 
80.- DM 


SS^ESSSSiS 












Best.-Hr. Tl 11 Diskette 26.- DM 
Best.-Nr. Tl Ha Kassette 20.- DM 







CPC 








Best-Nr. CPC 10 


15— DM 


Best.-Nr. CPC 30 


15— DM 


.*-*(*». M-.iw.t-. 


-»*-«» 


Sonderpaket 




Best-Nr. CPC 20 


15— DM 


_,„.., 


35— DM 



r™™™ CK-PROGRAMMSERVICE « 


^H,^ c fa Mtf -w-W — *, » "' ** mum »-™Sk«™. 

1111 Best-Nr. A 12 Diskette 25- DM 

" X.™n"nii'"-m-.*-,- -,tj r.urT.i, t,.,,.,., i,ufa„ Best.-Nr. A 12a Kassette 20— DM 
Best.-Nr. 6 10 Diskette 25.- DM 
Best.-Nr. A 10a Kassette 20.- DM 

:„'.;:. .v..;-,.;.-.:. h'.'i !.':'' '■■ i'V'"- Sonderpaket 

"■"....:;;.V."i.^ ViV. : \ ,':"" : "■-■ ■■■■■-■ ■'-■•*■ "™ u ™™™ 10a,n """■"' A12 ' 45- dm 

Best.-Nr. fill Diskette 25.- DM , li „ ll „ Dhv „„„ ,„ „„ 
Best.-Nr.AHaKossette 20-DM m£m23 60-DM 




Commodore 64 

n...Vi : '. i ■.!«- ■ sketta 20— DM 
j***™ |i [iaaj. mairaHBlsj, Ha*™* Best-Nr.C llaKassette 16— DM 

BesI.-Nr.C1 Diskette 25-DM „....„ »_,.,,—»_, h a w,niis5i h™i 
BesL-Nr.C 2 Kassette 20.- DM ESSS^hCaiis) 

HmJhdhwxsieo i."«i. u.-iv.,:ii- i»i. (ih. lsl . (4/S5i. r»nra Best.-Nr. C 12 Diskette 14— DM 
| ill! . m... i- Best-NT. C 12a Kassette 10.-DM 

Best.-Nr. C 10 Diskette 25.- DM 

Best.-Nr. C 10a Kassette 20.- DM Sonderpaket 

lOi.KSKJ.Clla.-dCll. M __ DM 

Best.-Nr. D5SS Diskette 14- DM Dies ,ih™ p rar « mmc auiDKk™ 

Best.-Nr. K385 Kassette 10- DM toxet batten 65.- DM 


Kassetten- 


Software-Bestellschein 


Sonderpakete 


inHI " """""- t "° B, - p ™ g^S** 


nwo 








6B " lh ™""' 


derpaketen und bei den Einzelkassctten 
nnchmals reduziert. Wer hier das Son- 
derpaket bestellt, bekommt im Ver- 






SOWW' 


- Cow*™ 


gleich zu den Einzelprcisen praktisch 


<3S22-7S6 


cine Kassette/Diskette umsonst. 

Verwcnden Sie fur eine Bestellung den 
Sof L w a re b e ste ! 1 sch e in vom CK-Pro- 
grammscrvice und schreiben Sie als Be- 
stellvermcrk z. B. Tl-Sonderpaket oder 
Atari-Sonderpaket daraul'. 


SB — ,£^1,__" 
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LESERFORUM 



LESERFRAGEN ■ 



Automatische Dish 
Error Anzelge 



' Schreiben Sie uns, 

wenn Sie Fragen haben 



Atari-Leserfrage 



COMPUTER-BUCHVERSANDjj 






Das grofls Solelsbucl 



,^. 


BUCH-BESTELLKARTE 



















































SCHNEIDER CPC h 



Formula One - Der 
Formel 1 Rennsimulator 



b ™?T.»»»,.™. 






Juggernaut 



Die Schneider RS 232 
Schnittstelle ist da! 



CPC 464 

Superstory 

Ein deutsches 

Grafik-Adventure 

DM 19.80 

Exklusiv bei 
Computer Kontakt 
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Forth-83 SsSISSr ' S '" TL'i 






Spra- p asl jefc Prop-ammkiipra- 



Von Diskette auf 
Kassette kopieren 

Fur CPC 464/664/6128 



I,:,,!,-,,!.;- 



K^|-i..i |']'iL'iL:rn?HL I'i':":l'!:i 



hn h S " E " * 



Das Listing fur 
dieses Programm 
beglnnt auf der 
nachslen Scile 



SCHNEIDER CPC 



Hexloader 



Basicprogramm 
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SCHNEIDER CPC 



90O CALL. I.BC6E '« 




340 ■ »*« PLAYER 'E MOVEMENT I« 

-5:LOCnTE -,9:PEU 1IPRINT CHR« 1 2021 1 SOUN 
D 2,1000, 10, 13:RETURH 

390 LOCATE n,9:PEH 21PR1NT CHR»< 143) : X-* 
-1O0 LOCATE >,9:PRINT CHR« 1203) : FOR 1-1 T 

4EO LOCATE >,1-11PRIMT CMM 1 238 Ii SOUND 1 
(2=22 ELSE IF *=20 THEN (3=22 ELSE [F < 


Burgbelagening 

Ss 'is" "„"' ™ tE -i — •«■*» 




30 rem ituimnm tt*t***mti*******t** 

140 ' ««• SPIELBEGINN '«» 


500 WIND0U02, 1 ,10. 18.25: INK 1 , 1B1PAPERHZ 

••CHR«1 1431 <CHR«f 143MCHH«< 143] • " 
ATE Z,1Z:PRINT c*;SOUND 1,5*5,1 



Computer Kontakt 1/ 



SCHNEIDER CPC 6< 
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SCHNEIDER CPC ss 




1160 IF INKET«=" THEH 1160 ELSE RETURN 


EHs^iSS'"""'""" - * r 


3:PRINT CHR«(2001 ILOCATE Z5,f4;PRINT CHB 

T CHB»(2B1I iSOUMD l,40O,lo:FDR 1-1 TD 14 

T CHR*1231 1 :S0UND 1,300, 10JF0R 1-1 TO 14 

1260 PEH 2:LQCATE I0,5>:PRINT CHR»IM31:L 
OCATE 13,fl:PRtNT CHR«C 143J : LOCATE 20,9:p 

DflAH 224,230,0: HOVE 1 16, z?z: DRAH 416,200 


MC-Laufschrift 

miisdxhrlt K.-ifeni,,'^: J;. Zur Er:i:..|uir. ? dur LWisrkL-ir 
L h -erden BewuBtes 

FOR i=l TO II): CALL BedingldurchdieBreiteder 

&8il(lil.(s! 8 5(i):NEXT. z^j^n ha , ma „ „ j cr . ,, tl . 


Assembler! isting 



SCHNEIDER CPC 



Data-Lader 







































































































S 


g 


























sEs : l : l 
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SCHNEIDER CPC 57 




Demo I 




30 *=3:6-2iP0KE l*n 
SO PEN 0"FOR i-t TO 


th,&4B>PGKE loubyta.1.32 ' . .Sti-Biojdr. versandarr,. 

r CHH*(1*71 :r. ■■ !i;HR»(133JlCHR»(30>|iINK 3V» 

HCAU. l»uf,ea»(iHNEXTiPEN 1 
bill* baliabigan Taxt elnlrager, 
bitta balie&igen Teit eintr-agan 
biMB baliabiger, Taxt ainfr-agan 


Demo n 




1 ■ falgand. Zellen 


W mm i .Jwiu-fl.... 


iS3w~ ,ss 









1 y mcigcizM 


ACHTUNG 

SCHNEIDER 
FANS! 

Ab sofort gibt's 

noch mehr Tips, Tricks 

und Infos fiir alle 

CPC-User im 

neuen ^ 

CPC ^Kl 

MAGAZIN^Q^ 


*mr <g r 2 

Das CPC-Magazin erscheint im 
Verlag Ratz Eberle 
Postfach 1640, 7518 Bretlen 
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ATARI/C64 a 



AXIS legt los 



'7.ACHTSCHRAENKCHEN Vl)IB 

GERABDROCKE VF.RtiLEI- (tei 



flogabc drei Pritgfamme 






-WK/.i. IJRMFT' eingeten, 



jr% 




7ugele S t. Dcr Spiel verlauf i 



Null Grad Nmd 







Kleinanzeigen 

zum 
Su perbilligprei s 





ATARI/C64 59 



Die NCE-Maus fur 

C 64/128 und 

Atari Computer 




Com puter-Kontakt 
das Heft mit den 

preisgunstigen 
Kleina nzelgen 



Crnnpjlet Kgntakt S/8S 



Liebe Atari-Leser 



g^ SSaSMSS Der ATARI 520 ST 

p M £di UVI Wei ^ cl Au ^ lI ' l ' :m " L-iidlk-.h ,Il ''" V i,: r ! l i !i M^'lkt & Ti.-dimk ""; , ' , . , ,- 



DerATARI-DFU-Tip 



ATMAS-II 









ATM AS TOOLBOX 



MONITOR XL b 



a (DOS 2.5) rei- Butfcra rtgdcgr, in * 



Basic-Disketten-Copy 




Computet Kontahl 2JE6 



Konkurrenz zum Atari-Schreiber 

Zweimal Tex tveratbei lung fiir Atari-Computer ; Suiriexter und. Ateit 




Computer KontaW 2/66 




TelelbnOTZ 52/429 48 

I iir Brief*': 

Computer Kontakl 

Posrfach 1640 

7518 Bretttn 



Computer K^ j 



Business-Grafik Mr ATAM-Computer 

































































fete f'ii'^'b/GRJiVk " S " ! 


r^i^l- 


<;.- il ,.-,i 1 -™l:Ei n ,.mfeKio- 


L-CTi ir=an 


"■'■"•■■ S'-'J'-" 111 - <■■<• kilr -' 



- "■ — ■"•"' ^ IiB , vls ^Aix^a^^B' Atari-Clubs 




Computer Kontakt 2/S6 



P£1£R'S 
ASSEH6LEREEKE 



80 Zeichen per Software 












ri:40-Z C ich=n.Jup^]lh U 



8B-ZEICHENK0KUERTER 



iiMt:ii[ir[[ittei!::p:!F]:«-i^r'i« 



S l rir, ! !BcMi.™raATASCIIin 



Listing 1 



REN • AUSBABE VON 60-1 



110 


GRAPHICS B* 


4iSETC0L0S 2,B 


IOiBETC 


]LCR 1,0,0 












COLOR 


:PLO' 


9 B 


DRAHTO 31 






14,186 




■■ v 


BtiDRfiWTD 


5,5 


no 


PLOT 5 


150iDRANT 


314,150 




IM 


RESTOfi 


100' 


■ ■■■■ 


1-0 TO 7 




190 

lie 


READ > 


iPLD 


•5*, 


REN *ictit 






A'USRI 


536,ADRtA 


),LEN(AI) 






NEKT I 










190 


GOTO 1 
REN * 












REN i 


Is D 


*»,, 






IM 


REN i 












< DATA BO, 20 


64,80-ZEICl 


NVERTER 




1 DATS 


0,40 


IM, 


uer ills 


-Bit AT 


as- 


-Caaput 




,Hi" 


600XL/80C 


LM30IE 




S DATA 




1 7K , 


RZEUGT BC 


ZEICHEN 


DISPLAY I 


DEP. 


GRA^ 


1KSTUFE B 





040 DATA 16, 163,0, PETER'S 

050 DATA B0,160,64,ASSENBLERECKE 

060 DATA 192, 160, 128, IN COMPUTER KDNT 



I746:READ DiPOKE A 



"DATEN-FEHLER 



,133,205,1 



30020 FOR A-1536 

,DiS-B+DlNE«T A 

JOOIO IF 5025B16 

1-19T0P 

30090 RETURN 

30100 DATA 104, 104, 133, 209,104, 133,208 

,104,104,133,210,104,104,133 

30110 DATA 214,169,0,133,211 

33,213, 165,92, 133,216,165,91 

30120 DATA 102,216,106,102,316,106,133 

,212, 165, 212, 201, BO, 176, 103 

30130 DATA 106,102,213,165,94,133,203, 

165,93,133,204,160,0,132,207 

30140 DATA 164,211,177,208,41,127,201, 

96,176,11,201,32,176,4,9,64 

30150 DATA 208,3,56,233,32,10,10,38,20 

7,10,38,207,133,206,34,165,207 

30160 DATA 109,244,3,133,207,163,8,160 

,0,177,206,36,214,16,3,32,147 

J017O DATA 6,32,191,6,36,214,80,3,32,1 

91,4,230,206,202,208,230,310 

50180 DATA 212,36,214, 16, 6, 36, 213, 4B, 4 

,16,4,230,212,230,205,230,211 

30190 DATA 198,210,208,147,96,133,215, 

149,0,133,216,1M,3,1B5,1BJ 

J0200 DATA 6,36,215,240,7,1S3,1B7,6,3, 

214,133,216,136,16,239,165,216 

30210 DATA 36,213,48,4,10,10,10,10,96, 

1, 4, 16, 32, 1,2, 4, B, 72, 164, 205 

30220 DATA 17,203,145,203,24,165,203,1 

05,40,133,203,144,2,230,304,104,96 



Listing 2 



m^ 



ATARI jt 



: BE 


£|l^ ^Hw^S 


■ Un r B ™t !u n,«„ II, H. .„.„.!.. HB.LP.i,, 


!«~ ie,cn mEa tz .n n 3 „ ^ a .... 


. l!irs;i%s., 


|p =:*:;:pr"" . 


•- l!E: "? : r; : ;:'"': ^ 


"™" |iE';i's=Ii : -— 


H IE Si"*"i:.";i„, 


RAMclisk fur Kassette 



CSIHlL Lillf» 






















STIKI ;1rj 


-cr. rnuMah 



n SCOOU bis In-'fF) I 



Hen. Der RESET* 



Listing 3 








20 


REH • Mini 


P. FIN7.EL 19B4 


as5ittE ; 


S! 


Din DKBO 


.BOOTH 
1534 TO 


000) iREBTQRE 50 
ISTiiSEflC DiPQKE 


*, 


iS-StDiNEKT Ai tL9 
IF 504119 'HEN f 


1536 
■DATEN 


FEHLER IN 


ZE 
73 


DATA 10*, 
0,11,152, 
DATA 157, 
3,104,157 
DATA 132, 


I STOP 
62,49, 1 

57,44,3 
9,3,104 
72,3,32 
12,169 


4,160,7,104,240,2 
104 

157,63,3,104,157, 
B6.22S 
0,133,213,96 


11 
1! 


READ DIl 
S-0:7 "• 


EAD P: 


F (*••» 


THEN 200 



200 7 I? "Bg.ot luf C»«»ltti .shr-ibert 
I 210 OPEN #S,B,L2B,*Ci a 

220 D*uSRIBL6,l,ADfl[B0DT*>,LN-l> 
I 230 CLOSE 13 

240 ? i? i? "FERT16!" 

290 END 

1000 DATA 0O0300071007A93CBQ02B32DFA07 

lB40A96F8DE702850EA90a,200J 

1010 DATA aDEBO:B50FA200BDlA03FOOAC95B 

F01AEBEBEBD0F260A95B9D,3344 

1020 DATA 1A03A9449D1B03A9079D1C03A900 

9D1D034055O760O7B70776, 1774 

1030 DATA 07520752074C5307A00160A900BD 

SDOBBD5E0BA0014OBB4AO3, 17B5 

1040 DATA 290BFOOCAD5D0BBD5F0BAD5E0B8D 

600BAO01604BAC5D0BB4E0,2297 

1050 DATA AD5E08484A4A6&6B29031D410BBS 

E1C0F0D004C9FFF020AD01 ,2851 

1060 DATA D329FEBD01D34SA00091EOAB01D3 

0901BD01D3EE5DOB0003EE,302B 

107C DATA 5E08AOO1404BA0A960AC5D08B4E0 

AD5EOeCC3FOfiD005ED600B,26!l 

10B0 DATA F02D4B4A4AAA4B29031D410BB5E1 
ADO1D329FEBDO1D3A000B 1,2635 

1090 DATA E04BAD01D30901BD01D3EESDOBDO 

03EE5EOB4BA00160AOB640,26B7 

1100 DATA 7BA9008DOEII4AD01D329FEBB01D3 

A93E:BDFAFFBDFEFFA90BBD,3544 

1110 DATA FBFF8DFFFFA200AD51D309018D01 

D3BDOOE04BBDOOE14SBDOO,3227 

1120 DATA E24BBD00E34BAD01D329FE8D01D3 

6B9D00E3689D00E26B9D00 , 3055 

1130 DATA E1689DOOEOEBDOCDAD010309018D 

01D3A940BBOED43B604000,2951 

1110 DATA 000000C0C4CflCCDBDEE4E9ECF0f4 

FBFC,2908 

1150 DATA i,0 



Pascal auf dem ATARI 



EKUB3)*PEEX(lB4)t256lE 



oananaMakMn 


ATARI n 






Sprites auf dem Atari 

.: : 

n Oraptiis-a tin vitreikisir. Noirniil L = doppcllc Drcitc, 3 


sis ? "«": msn ion i,::? •tyMa/fru ' 

:. JSGIHOL/B-Ellt 

BgK- 

1JZU ' "IBS 50LL iEtEIDEBl HEBtE« 7 " 


B«« **"• "-'- 


Player-Designer 
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Der Atari 520 ST + und seine Software 
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ATARI 71 






Cherry Harry 




In Gartner Harrys U a nsri isi fcimpf drucluai. bis dieses (le- 


i«'if tbopf twb sewn ;it " " 


an L : w nrnathmfei Cta ;m- iim..-i v.i^cr jOgeri-Khl im. 


1M tOSDB )7|ilf >■ men igsaj l*a 




















MO PBOI INCH USUI MM 


-■s sicii iicsis. a!s ! lam k,.:m,-',! »c,m .k:r Spicier dk«i, Vor- 


i"s*a s ™ Ica '- L ™ E " "H" «•**«•» 










«^^^ a 3^ts rt;. schui ™ aiiK ' verschv ""- 


iJjt^tTOSBfe,, «« « 


iti-rssiiL-. .l.-i In m it ri ilc 11 Otic v ,„ Spi^lbe^nn kann dtr 


ill *Y[?iI™i™™ttJrE ht««*i w*m * 


nnd viele. viele Sliano. Spider mt SblFCT Harr „ 




Snbald Harry fi!u! Kirn-lstr. CwwhwjndLSkdi »»til;,i. Hicr 












ncm unsichlbarer, irlu.i.iu.m- 'la' Sj>k-I dann begrmnen *cr- 


!ai*CBLoi| H l%l" XT IfPLST «T*1 H-H 












77a imp imioibetubb 


U..C1, :,ul. .crpktzt stl-,:,!^: !■. I,„ll '^l'd,X: 




SeT"fu" e d- ^'""^ A,ari 6U0 ^ mi ' Speicberei- 


IN MtzliltniHM 

IM SNIB ;,M,a,lS:S0U» I,L,L,L:C»L« 






^n^ffcsamniolLh'sUsdu- Harry ej„ Platrr ;s -..™- si'., Ti- 










ISO CKtH*l:IF CKHfl THEa CltLilEIU 














Damil Harry das E.dwesen bfn **** ™ Display l.isi-Ir,- 




t'ljmpri'liiper l-OLieikiiiiplii:.,1i '"' hl i<"-'li die 1 m-ch.-ilu.nszAi 


i» colm uiiiut S^jiSSai 1 "" 




4M CBCltlsIF CBIRBF1 THEa EI-L:BF.TUB 


, ' ' ' | ' lTr, ddB d d ' Z^hl"n 


iS &£&3l&%%,v lV tm m 


yerftrbl cs sich and cm (is- '^.'"^ RAM k " i " en v " lrdcn 


tZl'lUlvm Sw] ;LO«TE KFIIOI,VF* 






muli jent wa.erhrn den Fcucr- Ha.lus LMtk, 


Ms'SmIhH 0* CF1-11 1KB »a-IlltOT 






























Ma IF y()VF THE! PETUM 




MI lHI=l-Z*<K<ltFJ:FO* 1=1 TO MiLOCME 














;.. ":JI2tMll{:llli-mf,fil(E 514^1 












■;■■■'■■'■ ■ ■- ■: 










*«i cclc; ■ - (Friaam 






SJ Mil ; PB^L : LB=I ! POP -Z*H 




















» f"="»-i. IOOPF-1:* 




B=l:B=PFf: .,, ,j ■[ 
















1*5 fl-f|-l:lf Fl=l THEB COSIIB 111 




11* MM : .... ?liS tfci 




IBH1M* i YilBT (SIB/ Ml : K= SC«- IB T 1 5CS/ 




lie usua Mtn m=i thfb i?« 


«: s sisiu ::"!■:„ «. „. 



Computer Klt- 



U I HEN PW:PtPtlMt:l»;Li; 

;.--.■: f ■ . 



Zeichen-Zauberer 



i'.OFEN B,i 



;a poke S3, 

11 OPEN II i 

41 GRAPHICS liSDEllB 3I< 

51 BSfEE(IBS]*25&*PEEi;iB>) 

tl 6H-B5HI2 . 

» DM i« SBFM6E OB NEU3TART »• 

71 IF MKIUIIt-a M* I" 

N KEINPEEMT«l-Wi*lflllTI«n/*)** 

11 POKE T+2,t1ENiP0« 736.NEI1 



lit SI 



,5 bSl 



29: POKE 17M,*H 



131 POSITION 2,7i6D3UA ttl 



1 IV!'? ■ 

DM 2,13:7 'iSUi.ihl I 



(Llldtn iDlrginaJ ■ 

ill malum 2,m? "(BpiicH" mi" 

irmhw I Kevin 1 

HJ KH m RUMEN ItlCKNEK **' 

lit PUKE Bi.HECLJP 2 

211 PUT U.liJMNTO :2,R:IWA»Ta 21,1 



ATARI 



ai msme J,'sM««n 3,biC0lcr i 

111 PICT !7,ll0R«NT0 Jl.liWBHO 14,' 
251 KMTD 27,11 [flf*Tt 77,1 

255 tun i mBCHiKNFmsnuin leben • 

24IREBT0RE iFQRN-lSJUD 15H 
!7I REM AiPQKE H,*iNEIT N 

275 RE" ' WirPTBWllIHE tTlCKMFMBE * 

211 LOCATE 5,! ,F iC-f 

271 COLOR liPLDT S,HCOLDR 3iPL0T S*l, 

III IFFEBKnSlOJ T«E* Ml 
121 COLOR FlPLDT S.llPLOT 5*1,1 
111 1010 711 
141 IP 3TRI0IIM THEN 111 



!H IF STRUM) 



I 318 



UtC'CtlilF C« THEN CI 

171 OR itl BDSU6 711,731,731,771 

HI [CLOP £ 

3*1 PLOT S.ZiPLOT 1*1,1 

til plot is-ii! IM,1 

411 IF fl-15 MS IK 

121 I-I-IH'l'i 

431 I-MB'IH 

III SiS-1fi*l!)t2 

451 S=a+(WH2 

til If 5> 12 THEN Wl 

171 IF 3-22 THEN- 3-14 

tOI IF 1"! THEN 1-1 

191 IF Z-? THEN !-l 

SH IFSTIKIDOISTHENSH 

5ii sotd 2Bi 

515 REM HI DLT-ftENMSUMB Ml 
521 W.I'PE£MJMH2SitPEEH54H 
SI* POfi 011*1,71 

541 for Mi ra u 

551 POKE 1L1+M 
561 NEXT N 
571 FOR «■ 



IE DLI*t),l 



121 RETURN 

425 BEN •« lEIEHENBATI IN Mil »« 

411 FOR N-t TO 1121 

1,41 FO*E HEHi25i.N,PE£Il224i!54.Nl 

451 SOUND I.H/1,11,5 

Ul NE11 N 

ill RETURN 

675 REN * lElMENMT! WF SEH1RH * 

6JB POKE 734, NEB: FOB NM TO 127 

(41 PUT ll,27lPUT II.NiHEIT N 

;h bet urn 

7t5 HEN IN RECHTES FENSTER PLOTTER 

711 COLOR liPLDT 3*11,1 

721 PLOT St)3,(iB!lUP,« 



731 COLDS llFLOT S>I4,Z 


1241 If (C14 THEN C0-C0tl 


la colds Sjpldt bus, IiBETURN 


1291 IP R-II 1«EN CD-CO-! 


?51 COLOR ?cPLQI 5*14, Z 


1268 IF R-7 THEN H=H.7 


III COLOR BjFLDT E+15, li S-E7JRN 


I2TI IF Ml THEN H-H-2 


771 COLOR IiPLOT Wt, I 


1281 IF COi-1 THEN CO-13 


?B* PLOT St]5,iifl£TU!M 


1291 IF CD-I* THEN CC-8 


7B3 S£H m TSlTBlURMFfljlSE m 


I3N IP Nil THEN H-ll 


"91 8E1 «,T 


1311 IF H»I4 THEN Hp| 


B» IF t't; THEN 00311! 91i 


1321 IF B11WIB10I5 THEN |]» 


911 IF T*65 TNEN BOSJB 1171 


1331 SETCDlOR T,ca,H 


lit IF 1«7I THEN 6DSUB 1111 


1341 SOTO 1171 


931 IF T-8J DD T-T4 THEN BOSUB 135* 


I3<3 DEN !•• LnSE/EAVE -ROUTINE HI 


HI IF 1-115 THEN B09US 1341 


1331 TRAP 1321 


858 IF 1.73 THE It SOS Of, 1581 


1 Til POKE B7,||P0BI1IDN 2,22 


Bil IF 1=71 THEN BOSJB 1621 


1371 7lt|-DltlifllMI ' 


IW IF PEEK 17331 >3 THEN B9B 


13BI POSITION 13, IlsPOtE 87,1 


HI SOTO 781 


1391 INPUT PHI 


115 REN 1 AU8NAHL E1NES 7S1CHENE i 


H18 IF LENIFMHi INEN 181) 


»» poke n.panimnn 


1411 IF FNII2,2>OV THEN lOil 


121 IF 81813181=1 THEN IHI 


1421 CND't 


931 NB-AN-PTRIBI8I-PTHIBI1I 


1411 IF 1=83 THEN CND-B 


t4l IF KIOBSH21 1HEJI Nl-B5t281 


1441 BOSUB 1048 


131 IF H«-!S+2Bi THEN WCIBH22 


1431 CLOSE 13: OPEN I3,[HD,I,FM 


941 POKE AN, PEEK ! Ml- 1 2B 


1448 POKE B91,I2B 


971 POKE !S<W,PEEKiANi 


1471 POKE 8B4.li POKE B83,HEN 


9BIPKE HH,PEEKlMH»*12SlAU>UH 


1481 PBtE BBS, liROKE BB9.4 


991 SOTO 921 


1491 NE-USRI1534,CM«) 


993 BED hi ZEICHEH MRSTELLEH m 


I3N CLOSE 1! 


1MB ST-PEEKM) 


1311 RETURN 


llll IF 51)127 THEN KT-ST-1 »l POKE AN, 


1313 REH in TON BEI FEHLEK hi 


BT 


1321 SOUHJO «,H.4,BiFG« P-l TO 31 


it» for ni id ; 


1531 HEII Pi BOUND 1,1,1,118010 1331 




1535 REH ill FENSTER LDESCHEN m 




1541 FOR Ml TO 7 


1141 NEIT N 


1551 POKE 88-11. Nul, 8 


1151 BOSUB 17B8 


1561 NEJ1 N 


JIM 6010 291 


137IB0BUI I7BB<R£TIMH 


1113 REM til ZEECHEM UEEE3JRA6EN III 


1173 REH '•• FENS1ES 1NVESTIEREK III 


ii7i m 14 to ; 


1301 FC* N-l TO 1 


1IEI POKE INEMI25itN*5J18!,PEEniltBSt 


1591 POKE BBtniNf|l,23!-PEEi;iBStH>Ni 


IIW) 


II) 


nil heii n 


llll HEtl N 




1411 B0SU! ITBIiRETURN 


1115 RED III FARBEN UERAENDERH III 


1415 REH ii DBS 1NALJEI CHEN LESEN H 


llll POKE 17,1 


1121 FOR N-l TO 7 


im P031TIDN ;,;;,; iti'Firingiitir 


1431 POKE BBtlltNi||,PEEK(6TiB*224i234 


1131 BET 0,1141 HIB DR 1)32 THEN 113 


1641 NEXT N 




1(58 608 OB I7BH RE TURN 


1KI W-WilF W THE* 1131 


I7BI FDR N.l TO 7 


JIM NE'TBBHlFWEEKIRE) 


1818 F8R N-8 TO 3 




IB1I LOCATE 4tN, UN, m COLOR 1 


1171 POSITION 7,22(7 H| 'Fir trig) ittr 


1B21 a.l4t»i2il-NUlPLBT B,2 




1831 PLOS 13iHi2,N-liOH Ntl BOSUB 718, 


HE* PRINT lijlj 1 : ■ jCDp ' , J jH{" ' 


738,751,171 




1S4B HEIT N:NE 11 « 




1S5B REIORN 


llll IF BTRIGID-I THEN 1211 


IB55 REH ii T JITS IRE I FEN LDESCHEN •• 


1221 BOS 08 IBeJiREIUM 
1238 IF fi-15 1HEH [191 


1B4BP0KE B7,HP0aiTI0N 2,22 



Computer Kontaktg/B6 



1981 PDtE B7,3sRETUnH 

[96S REN I DATEN FUtR HS-PROSftMH t 
IB'l DATA 114, 211,1,218, II, HI, 1B4 
I4N DATA 141, lit,!, 142,48, 32, Bi 



Itll DATA I!B, 133,213, 149,1, 133 
19!) DATA 212,94, « 

itlf BED I lElCHCN-JauKSER Cy 7164 • 
2t» REK t il l! II j t fWim i H I MM1 II 



Sound-Demo fiir Ihrcn Atari 





2*1 POKE 537A3 T lM*LiiL2=L2-2» 




.5*(L!>I AMI DIH.'SEI KfWSJE 


plniu 






311 IF PEEKI2BX4THEN 311 




371 ME1T liSOTO 158 




m rem ms 



4 1 8A55=Y: !IEL I = 1 4 1 BCHL A67 °t> MEL 2=9 1 
I4SS-IE12 IHISS 1H«' K« MfM I" 
H HE J tit 1* fffMlTEH 



A6Z,J4>,[4IMEL2,I1I 


,213,1,243,1 


EtFM H-l ID ii:Bl[» l lll'fiB2ll,NI-»: 


1111 DATA 315,1.1 


3ll,Ml-a:14(I,HI^:KEn 11 


345, (,122, 1,215,1 


71 FDR N=l TB WHiFM 11=1 TO 1" 


1151 DATA 57,1.1, 


111 READ HHiMI-lsNEHfclEIT R 





141 READ i:e;ik,hi 



BIB: BOTH 1BI 
191 FDR 14=1 1 

m if 



=JKB=l>«l(ll?l]iPa(E537M,Z4iIF 

THEUPKE 537 1], 1 13 

225 IF MX ANfi 24(16 ADD D>3 THEI 

2;PB<£ 33761,3: POKE 5374 1,H 

2J1 IF 1111 TBENPME S3TW,l!lJ=l 

E S37M,!1 

241 IF 12>l THEN L2-B:Pf)tE 51712, 



SKS 


,,,,,.,,». 


.,„, 


i«, 


1411 DA 




»»;„, 




IB 


:;?. 


HIi'mT* 


91 1 B 1 61 1 




57 1 


™ 


,41,1,74 








liSl D 


... 










1231 DATA 








6,8.1 



: 537*;, a 



'B PUKE 53741, l!S*Uil]4>l TJB 61 
1-ILI16 AND B>ll;RER lEUJIi 2 

'5™tt5J7i7,isBi;;j:>;:n:9.i72 



,.I.6B,B,6»,d8, 










127* DATS 51,41 




















128B DATA 51,57 










^.l™ 7 ';'., 






,41 


,», 













Computer Kontakt 2/8B 






ATARI 7 9 




21MDATA 1,8,1,. 


23M DATA 1,4,4,2 


2511 DATA 7,11,4,2 


2741 1ATA 1,4,2,7 








2751 DATA 2,5,1,9 




2321 DATA 1,1,1,6 


2521 BATA 5,11.2,2 






233* DATA 2,1,1,1 


253* DATA *, 11,3,1 




















2161 IfiTfl 1,1,1,7 








2171 DATA 2,2,3,5 


!3'l DATA 2,13,1,1 




2311 DAT* 2,2,3,2 






2421 DATA 7,9,1,2 




2171 DATA 1,11,5,5 


23M DATA 4,1,1,4 


2431 DAJA 8,9,5,2 


2831 DATA 4,11,5,5 




2411 DATA 1,1,2,4 




2841 DATA 1,1,2,7 


II1I DATA 2,2,;,! ' 


24IB DATA 2,2,3,1 


2458 MIS 1,8,3,! 


265* DATA 2,2,1,9 


2221 1MB J, J, 1,2 




211* DATA 7,9,1,2 




2231 DATA 4,11,5,5 










2441 DATA 1,1,2,7 


248tOAJA 7,9,4,2 


2381 MA 9,1,1,3 


J35I DATA 2,5,1,2 


2451 DATA 2,2,3,2 


2i!lBATA 7,11,4,2 


2B9I DATA 1,1,1,1 


2261 DATA 1,1,1,2 








2271 DATA 1,7,5,5 












2721 DATA 3,6,1,2 




2291 DAT! 2,5,1,2 


2491 DATA 4,11,3,2 


2731 DATA 4,7,5,3 





ATAHI-Lcscrforum 




i ann Funkiton LKITS(iSji) ti«i 



♦+++♦++++++♦+♦++♦++■ 



HIEI! 1ST SIE: 
IIIE SIM-ER- 



ATARI 



I 



♦♦♦ ♦ ♦♦♦■*♦»♦♦»»♦ 4 ♦♦'» 



FIIEI! IIHIEK 

flttl! EINE 45AXKE IflSC 

VIIIUI! IlffiKTISEMICHElf 

nmiminii m raws- 



mmsmmmm 

FUEl! SIN! Mi 29.- PR 
SCBECI! IIIIEI! M lltll 

WMM 1MIHM1) 
iilEil 17, iiliili SBLiillE!!!! 



TI99/4A so 



Liebe TI-Frcunde! 



Disketten Manager und 

Basic Debugger fur 

Extended Basic 



Neue Moglichkeiten mit 
Mode Control 2 




SSSSSSSS^i 99,- dm 
Assembierkurs 2 + 3 



_J 



TI99/4A 




CALL CLEAR :: CALL SCREEN(2)r: CALL HASNIFYC4): : RANDOMIZE 
FOR 1-48 TD 57 :: READ At :: CALL CHAR(I,A*>:: NEXT I 
FDR 1=65 TO B6 :: READ A* :: CALL CHARCI.A*):: NEXT I 

o call char<ii2, " ooooooooo so 7 or.?: ■:■!■:■< .-7.j:x>ooooooooooooooocoeofofofofoeoc'') 



utao, ■00402000 0a i ■ .■•■■ .9400000020400102040000000201008040 

L CHAR(12B,' , 000003OFtF3F3B3D3DlF0F132C]202070000aC0F0FBFCBCBCBCFBFOCBO404O 
. CHAR(132, "O71F3F7FF1F1F1FF7F7F3F0F0F0FOFO3EOFBFCFE8F8F8FFFFEFEFCF0F0F0F 
190 CALL CHARC136, "Q30D1B1B1F3FFFFFFF7F7B7D3E0703OOCOF0FBFBFCFEBFDFFFFEFCFCFCFBF 



200 FOR 1=0 
210 FOR 1=3 
220 DISPLAY 

DISPLAY AT<24,2) 



,INT(RND*32)-t-l,42):: 



:: CALL HCHAR(INT<RND*20; 
:: CALL C0L0RU,5,l);i NEXT I :: CALL C0L0R(2, 11, 1, 
TI LANDER" :; DISPLAY AT(14,3) : "PRES- 
ATED BQ RODERICK KOEHLE 



NEXT I 
2,13,1) 

TO BEGIN' 



230 CALL HCHAR(22, 1,127,64);; CALL SPRITE (#1, 128, 5,1 

240 CALL K£Y(0,K,S):: IF SOI THEN 240 

250 CALL HCHAR<10,1,32,32):: CALL HCHARU4, 1,32,32): : 

2G0 CALL MAGNIFYI3):: DISPLAY AT(24,2):"SCORE:0000 FUEL;50 SHIPS:3" 

SC=0 ;: SH-3 :: A=l :: AU-5 

CALL DELSPRITE(ALL):: FOR 1= : .-...:..: .-N, :■;.;.;;; Fi:.i*>: 
290 CALL SPRITE<4t3*I-fJ+i,136,INTCRND*13)+3,32*I+20*rNT(RNDtl7>,!J-l)*( 

T ( RND* (256/A-20) ) , 0, AV*V ) 
300 NEXT J :: NEXT I 

3i0 C=0 :: F=50 :: V,«-0 :: CALL SFRITE<tll, 12B, 5, 1, 120,0,0) 
320 U-U-.1 ;; CALL M0TI0N(*1, V, W): ; CALL COINC(ALL,C 
■ COO OR F=0 OR V;i52 AND Y<240 THEN 350 

!30 CALL KEY(0,K,S):; IF S=0 THEN 320 ELSE W=»MK=65)-(K=13); ; F=F-1 : 
»TC24,1B)SIZE(2);STR*CF):: IF K=32 THEN V=V-2 :: CALL SDUND(-200,-7, IS 
340 GOTO 320 
350 CALL M0TIDN(#1,0,0) 
360 IF COO THEN A*= "COLLISION JITH ASTEROID" :: GOSUB 460 :: SDTO 2BC 



3/u It r=u mtii wj 

300 IF ¥>200 THEN A*="GUT OF SCREEN" II 6GSUB 500 :: GOTO 2B0 

290 IF Y»ABSiW)>4 THEN A*="CRASH JITH GROUND" :: SOSUB 460 :: SOTO 2£ 

400 B^30-»A*AV*F-V-AB5(W):: AS="BQNUS: »&STR*<10*INTCB/1<»>I." POINTS" 



IF SC<I0O00 THEN DISP 
>=AV*2 



410 FOR 1=1 TO B/10 :: CALL SOUND! 100, 300, 5) ! : SOSC+ 

LAV ATI24,S)SIZE<4>:RPTS<' , 0",4-LEN(STRS<SC))H.ST1rt(SC) 

420 NEXT I :: CALL DELSPRITE(ALL): : A=A+1 :: IF A>3 THEN A=l 

430 FOR 1=0 TO 20 :: CALL SOUND (-100, 500, I) : : NEXT I :: SOTO iou 

440 F=50 :: A*='NO FUEL" :: GGSUB 510 

450 V=V+1 :. CALL MOTION(*1,U,W):: CALL CQHCfAU-.O 1 1 CALL POSITIONi*l,Y,X 

F C=-l OR ¥>153 AND V<240 THEN 350 ELSE 450 

460 CALL COLSft«i,T)n CALL PATTERN C*l, 1121 I I CALL SOUND <- 100, -5,1) . : FOR I 



470 CALL PATTERN(H1,11&>:: CALL SOUND (-500, -6,0):: FOR 

4S0 CALL PATTERNi!tl,ll2>:: CALL SOUND! -500, -7,0): t FOR 

430 CALL PATTERNS, 120):: CALL S0UND(-300,-5, 10)! i FOF 

CALL DELSPRITEC#1> 

500 SH-SH-1 !i DISPLAY AT(24,27>BEEP:STR*(SH) 

510 X=l4-LENCA«)/2 :: FOR 1=0 TO 3 : 

,400,0):: DISPLAY AT<10,X):At :: FOR J^O TO 1 

32):: CALL K£Y(0,K,S): : IF S THEN 530 

520 NEXT I 

530 IF SH THEN RETURN 

540 DISPLAY AT(10,9)i"GAHE OVER" :: DISPLAY A 

560 DATA 00FEB&BA92A2C2FE,0Q18GB0G0a0B0aiC,OOFEO2O2FECOC0FE,0QFC0404FE0606FE 

-.£,OOFE80aOFEO£06FE,0080S080FEC2C2FE,OOFCQ4040&060&06 

'E, 00FCB484FE06O6O& 

■■■.:/. ■ ■■;■■: ■..:.■■ 

£,OOFEBOB0FEC0COCO,OOFE6OS0C6C2C2FE,00a2B2B2FEC2C2C2 
8,O0929292D2D2D2FE,OOB888BSFEC2C2C2,00a08QBOC0C0C0FE 

2,ooFEG2S2C2c::C"i:;,i::CFEf;rR!': L JS2G2FF,0'iFEs:.:.,-:' ■ 

a,00FCB4G4FEC2i:2C2,0OFEB2B0FEO£8SFE,0OFE10IO18181BlB 

F,o.xi!:;':n:e44447C 



=0 TO 30 : : NEXT I 
-0 TO 10 :: NEXT I 
1=0 TO 100 :: NEXT I : 



G PLAQ ( 



590 DATS 



A 007C4444FEG2B2FE 
., 007C4444FEC2C2C2 
A OOFEBOaOFECOCOFE 
A 0010101018181818 
£20 DATA 00FE9292D2D20202 
630 DATA 0O4242427E1B1810 
640 DA 



Tl-Club Baunatal 



Computer-Kontakt 
das Heft mit den 
preisgunstigen 
Kleinanzeigen 



Neue Preiae 




Tl 99/4A 


TI-Assembler- 


Software 


kursll 










ftugsimulator 11J2EK 












h£* is'bobm 


^jjWttluCKi . 










Powersoft 


F1 ., l .|,-„...., 1 SL c (u.,ioo 






41 7B Kerala* 


"**■ 



Malen mit dem TI 

Fur den TI 99/4A mit Extended Basic 



Co mputer- Konta kt 
das Heft mit den 

preisgiinstigen 
Kleinanzeigen 



TI-Paint 



100 ! TI PAINT 

110 ! TI-99MA EXT. BASIC 

120 ! PATRICK SCHHITZ 

130 I AH ZEHNTHDF 4 

140 ! 5480 REM. -UNKEL BACH 

150 CALL CLEAR :: CALL SCREENC1&) 

160 FOR Z-t TO 14 :: CALL C0L0R<Z,5,1>:: NEXT Z 

170 ! TITELBILD 

ISO DISPLAY AT(1, !):"** TI PAINT **': : :"l-RuT"l :"2-SRU£N": : "3 - B 

"4 - GELS": :"5 - SCHWARZ": : "S - WEISS (LOESCHENI" 

190 DISPLAY AT<17,1):"N - NEUES BILD"; :"E - ENDE C - CURSOR AN/ 1 ALPS" 

200 DISPLAY ATC24.1):"[RS£NDE[NE TASTE DRUECKEN. " :: CALL KEY(0,K,S> 

210 IF S=0-THEN 200 EL5E CALL SOUND(-!OG,BB0,5,BB2,9> 

220 ! VORBEREITUNSEN 

230 CALL CLEAf? :: FOR Z=96 TO 136 STEP B ;: CALL CHARtZ, 

240 NEXT Z :: CALL C0L0RO.9, 1, 10,4, 1, 11,5, 1, 12, 12, 1, 13,2, 1 

250 CALL SOUND£-110,440,4,442,B): : CALL COLOS/fl, B, ! j ; ; 1;U=1 

260 CALL CHAR(42,'TFFFFFFFFFFFFFFF - ) 



C0DE=96 



AND ZE+X 



2,70 CALL HCHAR(l,3,96l!: ZE-1 :: SP=3 : 

280 ! CURSOR - BEUEGUNG 

290 CALL JOYSTCl.V,*)!! X-X/-4 :: Y=Y/4 

•mrm then ze=ze+x ■.-. sp-sp+y 

300 ! CURSOR AN/AUS 

310 CALL KEYfO,K,S] 

J=l THEN CU=0 ELSE 

320 i NEUES BILD ? 

330 CALL KEYtO.K.S):: IF K=7f 

230 ELSE IF K=69 OP K=101 THS 

340 IF CU THEN CALL GCHARIIE, 

350 I FARBE AENDERN 

3E0 CALL i;EY<0,K,K;:: if SOu THEN IF II>48 AND KC55 THEN CODE 

_ SQllNDr-20,220+[k-4Bi-t20,5J : : CALL HCHAR(ZE,SP,CODEJ 



IS: f>110 THEN CALL SOUND f-1 00, 110, 5, 1 12, B) : : 
CALL SOUND(-100, I 10, 5J i : CALL CLEAR :i END 
■,Ali! CALL HCHARtZE,SP T 42»:: CALL HCHASiZE, S 



! ZEIC 
) CALL J 



DP ZFtX-24 OF SP+Y-:3 
: SP=SP*Y 

?«ZE,SP,CDDE):: GOTO 2 



J +Y>30 OR X=0 AND Y 



TI99/4A 



Polargrafik mit dem TI 



chEtttndcdBaskSirlchgri.fi 


CALL LOAD(-31fiSfi 


il ist in Assembler gesthrie 


£EIHS 



anm, dai die vicMUtigen den Aufnile vnr. 

isgabcroagllchkeiten tfigen CALL L |NK ("NULL". 

II.DiescnI'rograminteilkann y) siellt den Nullpunkl Kir a 

m Uheischrertien, umeigenc f |g C ndeiiAu[ruIeein.Xuilc 



Thk Wenn d»s Proerfimm bei Y „. iat i ien Ound 191 licgen [L() ^ A ^J; 

■ ■ ■ ■■ ■ ■ ■ ■■ . ., .-.. ■ ■ .. : ,■ .' 

Tcxlau.gabcn mosiiUi. Ja:,.v ^ V| , t[f J[n A](hB „ |— , „.,„, 

abcr eiflBerc Crafikcn. eincrl.inie.dcn Mitteipunkt ei- 

VordeniLadMidHPiogrmi- »« Kxases und den NuJlpunkt Rei Me 









[lonv -Willi 



Polargrafik 



*C2rj2il27i:l-4l4E4E, 
414E4727E&49414E4£.412027F24D4F4455532027A£4C494E4945202aFB 
1370 DATA 494C494E49452912415353454D20A0A4 

1980 DATA 24F42AE7 

1990 data oiDOOOOOOOOSiooo2S4AooBooc 7 0'.'.iDOErjooaoa'so3i2f.Ff J i"jM["ii']; , s'-;, , -.: , 8Ctiiuoo80Boao 
8oaos'">Bi"isooij7D:n:'pf «,•<"■>-,■' .>A>,";n."-ao.-OE.- v,ui-ff9;':'_offfd 

2000 DATA 0010000J0r-»X"i25Br_255;29BBBrV>OF''. . i . MHI.I4020100B040201 00000004 F0 

0FFFFFG0050G3 1 iXT .... . ,-«,(><,<K> 

1 00004000CFF 01 042020201 002DB 

102590020G08O0020 1 F 1 00020200 

32BB0225 1 CI 60 2C0A025 1 E06C2DA 

X"J5B2 

4-5F F FB0246FFF B E B 052528&B0525 

S010FA 

$20202000804 20202CC08906C288 

3B 1 30A9089 1 6 F BQ9B2 D8&2A 1 OOA 1 

1 40202000B042O2 2C 04 C2BBA225 

1 202020008042020 240 EC 9DA&AA0 



Tl 99/4 A™ 

GotnpLitaT Kofflakt 2/S6 

™ D«T«BO<J0100100™2EOB3E01,4 5 BCB0525S8:I»S252»0«00<C|<«B1C.4B0420200««»20 

iiu^r^^ST' 1a£ „.3 6ia „ 5BSl ».2., 

*ffSfS ^^zMB.^BBoa 

: ■.. :■■■■■■■ ' '' "" ;l1 451004 

21B0 DATA 04C5ClE0255BC247"743:::;:ft023;.ii04CB04C80380 

"""J 5 j , , aaTO2KaJ2 „ 2= 5Bl M5 C»7B0 2S SB03B0C2B..S<»02 

B„ tt .,,B C «~ 0C25.0C0.CCO 

.■..■■■■.:„,:.::,..,,■■■.. 

n^o2A5S2B«.x,04;.^a-t;292EM»o^4^^^^^^^^^ 1!|Ma2 



. „:150225FFFCBB05B3B011 

E4M, ^^°'^^SD27B0^^^^ 



22B0 DATA 16376,16383 

2290 DATA 80,76, 75, £5, 68,32, 160,0 

2300 DATA -24576,-24441 

2310 DATA 2, 224, 160, 136, 2, 4, 0,3, I'M, K, 131, 5o 6 , 

232r, DATA t.,lf.0,1W,P 

2330 DATA 6, If L 

IS data J ?J - !~ '-"Ju^c.i.*:-.-^*,™'' 



Computer Kurrtakt 2/86 



SliiL-k ui.l lisiigcin : 



Bierborse 



E r Spider (m M i 

liii-mi.M-Wl. Ik. 



IJahe ' Joystick nun auf'jttkn Kurs k*pfi. Deckel mil H (Hopfet)] 



5 REM *BIERB0ERSE*V0N RICHARD BRANCO JUN. 

10 CALL CLEAR ;: CALL SCP££N<4>:: CALL CHAR(9ti"©0Wa442"T4224"): : CALL CHAR(97, 

"E666667E7E666666") 

15 DIM Pf4),N»t4),B(4,4),KU,5>,Ma,8>:: RANDOMIZE 

20 RESTORE 25 :: FOR 1=0 TO 1 :: FOR X-0 TO 8 i: READ V :: M<I,X)=Y :: NEXT X 1: 

NEXT I 
25 DATA 33,29,93,54,95,99, 100,101,102,103, 106,107,100, 109, 110, 111,127, 12B 
30 CALL Dl :: CALL KRUESERL(4, 13) : : CALL SI :: RESTORE 35 : : FOR 1-14 TO 22 : : B 
EAD C* :; DISPLAY ATU, 4>:C4 :: NEXT 1 
35 DATA " BIEPBOERS E% , ■ HOPFEN UND MALZ"," GOTT ERHALTS",,," 

FUER 1C4 SPIELER", ,ANZAHL DER SPIELER [ 
40 ACCEFT AT(22,261SIZE(1)VALIDATE("1234"):CS :: A=VAL(C*>n CALL P 
45 CALL CLEAR :: FOR 1=2 TO 23 STEP 7 ;: CALL KRUESERL t 1 , I J : : NEXT I 
50 DISPLAY AT«1,7):"NAMEN DER SPIELER" :: FOR 1 = 1 TO A :: DISPLAY AT(I*2+12,6): 
"SPIELER ";Ij" [ " :: ACCEPT ATU*2+12,21 )SIZEC-5)VALIDATE(UALPHA>:N*( I>: : NEXT 

55 DISPLAY AT<23,5):"PUNKTELIMIT [■' ig ACCEPT AT(23,21 ) VALIDATE CDIGITJSIIE(2! :L 
I 

60 REM ***KURS£RMITTLUNG**t 

65 CALL P :: CALL CLEAR :: CALL D2 i: DISPLAY AT(1, 15); 'K U R S E» 
70 RESTORE SO :: FDR x=13 TO 22 STEP 9 :: FDR Y=3 TO 7 : : Z=INT(RND*3>+1 :: FOR 
1=1 TO Z 

75 READ C* :: NEXT I :: DISPLAY ATCY, X) :LEING '■#####•#": C* :: FDR 1-1 TO (3-Z):: 
READ C% :: NEXT I :: NEXT Y :: NEXT X 
BO DATA !l'h,h[" r S[h:,hC: 'e,.t*:e, hC..', #[..],[ [Bh.. e.Ih', '[.:eh;: 'Cfih@,ee[h: ', 

.:Eiih',.. 'am, 1 1. cm 



85 D 



. ,th«" 



•C. 3:11,1" 



<Zh: 



,hce@',.:he:, 



90 FQR [-1 TQ A :: DISPLAY ATI 19, I*7-A*4+ll ): USING 

,I*7-A*4*-12):USING "WiPtlHi NEXT I 

35 R=0 :i FQR Y=0 TO 1 :: CALL PRCY):: CALL EPRtY.h 

0,10>:"RUNDE[ LIMITCjLI 

100 R=R*I i: DISPLAY AT(10,1&)SIZE(3>:USING "BtMT.R 

NDi-S0,770,XI:: NEXT 1! 



.., 'h[.:9,ht.. 'e,:thhee, 
#":N*<I)n DISPLAY AT(24 
I NEXT Y i: DISPLAY AT(1 
DR X=l TO 30 :: CALL SOU 



5 FOR I 



TO * 



: V-0 



Kill 



X :: CALL F 
] 125,130,125,130 



1 Zljij" 



109 



110 RESTORE 115 :: DISPLAY AT(i; 

STEP 2 ;: CALL S0UND<-50, 523,1 

115 DATA - TAUSCHEN,,- WUERFELN 

120 CALL SPRITElttl,40,7,X,98):: 

125 D=l :: SOTO 135 

130 D=2 

135 CALL JOYST(D,Y,Z):: CALL KE' 

140 IF COO THEN CALL 33 : : IF 1 

ELSE X-109 

145 SOTO 1M 

150 REM **TAUSCHEN 

155 RESTORE 1E0 :: CALL PRINT tl 5=1 :: GOTO 1B0 

160 DATA WAHL DES KURSE5, .JOYSTICK BEWEGEN 

165 CALL SPRITE<#1,40,16,Y,X>:: CALL JOYSTlD,C,Z>: 

HEN 163 

170 IF E<X> THEN CALL S3 :: SOTO 195 ELSE IF ZOO 

ELSE 5=1 

175 RESTORE 105 

ISO READ X,Y :: GOTO 165 

165 DATA 113, 20, 137, 20,113, 2S, 145,28,113, 36, 145, 36, 113,44, 153, +4 

190 DATA 185,20, 210, 20, 165,28,218,28, 135,36, 218, 36, 185,44,226, 44 

195 OX/B+1 :i CALL SCHAR(Y/8,C*1,Z>: : IF 2=32 THEN S=-l ELSE 5= 

200 CALL GCHAR<Y/8,C,Z):: IF Z-3I OR 2=32 THEN GOSUB 220 :: SOTO 

203 RESTORE 605 :: FOR T=C TO 4 :j READ X :: IF X=Z THEN 215 

210 N 






t TO 3 



Y(D,C,E):: IF Z+E-0 T 
THEN S'S<-1 :: 60T0 IE 



215 IF B(I,T 



J B<I,T)=B(I,T!-1 : 



;■ i30TO 200 ELBE E=- S : 



250 

235 RESTORE 265 :: CALL PRINT 

260 CALL KEY<D,Y,C):: I 

265 DATA "",■ '"#", 

270 F=INT(RND*6);: ON I 

275 X=2 :: C*="SCHHAR1 



THEN 260 
*7. DRUECKEN" 

OTO 275,280, 2B5, 290, 295, 300 
305 



; BOTO 305 
285- X«3 i : C*="BLAU" : : GOTO 305 
290 X-7 I! C*="ROT" :: GOTO 305 
295 X=15 :: C*="6RAU " :: GOTO 305 
300 X=ll :: C*="GQLD" 

305 FOR Y=l TO RND*5+1 " CALL SOUND(50,-6,7) 
310 RESTORE 315 :: FOR C=l 10 4:: READ V,I : 

C :: DISPLAY AT(16, 19JSI2E(9) :C* 
315 DATA 113,129,113,137,121,129,121,137 



: CALL DELSPRITEf* 



320 CALL S3 .-j CALL P li FOR J 

THEN 355 

325 RESTORE 330 ; : CALL PRINT : : CALL P : : x=0 ■ ■ GOTO 345 

330 DATA FARBWAHL, , 

335 CALL JOYST(D,Y,ZJ:: CALL KEY(D,Y,C):: IF Z+C=0 THEN 335 

ifVo m»5n«M& uraa Wm ^ ELSE IF z>0 mD * >0 THEN * =x ~' ^ 

)?C* fi " T aof 35 ° ^ ™ ** TD r " M REA ° " !! NEXT V "' D1SPL ^ *T(l£,lI)SIIEtl7 

350 DATA 9 SCHWARZ,' BRUEN.h BLAU, : ROT.. SRAU 

355 B(I,F)-B(t,F)+l 

360 Y=0 ; : FOP X=0 TO 4 : i Y-Y' 

3£5 Y=[NTCRND*5>:: IF B(I,Y>>0 

370 C*="" ;: RESTORE 375 :; FOI. .. , 

375 DATA §,\h,i,, -".««. r.c«u » 

330 IF Y>0 THEN y»Y-l M C*=C«,Bt !: GOTO 3B0 

3B5 NEXT X :: Y*LEN<C*):: C*=C*S,RPT* < '■ ", 10-Y1: : A»=SEG#(C* 1 5) ■ - B*=SEa*(C* 6 

S):i DISPLAY AT<21, I*7-A*4+l 1>SIZE(6) -A* otu»il.*, l,3J. . B»SES*(C*,£, 

350 DISPLAT AT(22,I*7-A*4+11>SIZE(6> ; B* :: IF y=i THEN 475 

H ^C'Rt 400. :: CALL PRINT :: X=109 f, S=-l 
400 DATA - NICHTS KAUFEN,- KARTE 1 KAUFEN - KARTE 2 KAIJFEN 
405 CALL 5PRiTE«l,40,7,X,9G) :; CALL JOYST<0,Y,'z)<: CALL KEY(D,Y,C>:: IF Z + C=0 1 

410 IF COO THEN CALL S3 :: SOTO 420 ELSE IF X<125 THEN X=X+B :: S=5+l ELSE X=1C 

415 GOTO 405 

420 IF S--1 THEN 510 ELSE C=4 

•-S,C,I> ;: if Z=32 THEN RESTORE 460 i, CALL PRINT ,, CALL S2:: 
430^R^TnPF ^ B ' 1 ^ , ;\" LL PR<S,:! MLL SP *<S,M(,»:: *■* u SOTO 370 
435 NEXT T ' ' " R " D * ! : IF X=i THEN 44 ° 

44£_IF BU,T)>0 THEN BCI,T)=B«, T)-l :: &*H : : GOTO 425 ELSE SDSUB 445 :: GOTO 

i IF Z=32 THEN 4G0 
u u ^ -.-. rur r»o iu * :: READ X :: IF K=Z THEN B(I,T)=BCI,T)+1 ;; GOTO 
455 NEXT T 

4S0 RETORN 

465 RESTDRE 470 :: CALL PRINT :: CALL 54 : : CALL P : : SOTO 395 

470 DATA KAiJF J,-(MOr:,i i::H,iapH"EN "EHLEN, I UIEDERHOLEN [ 

475 IF J032 THEN X=2 ELSE K=± 

480 DATA ,[ KAUF SUELTIQ [, 

485 FOR T=l TO £ :: IF SES*(C*,T,1>=" ■' THEN 435 

495 RESTORE 500 :; FDR Y=I TO T :; READ Z :; NEXT Y :: P<I>=F(I]+Z*X ■■ DISPI AY 

AT(24,I*7-A*4+12)SIZE(3J:USING -##»-P(I) DISPLAY 

500 DATA 5,3,2,1,1,1 

505 IF P(I)>=LI THEN CALL DELSPRITEiALL) : : 50T0 520 

510 RESTORE 515 :: CALL PRINT :: NEXT I :: SDTD 100 

515 DATA ,,, 

" 2 p<n LL iSJ^ 21 ' 1 ^'" 5 " ™ I=1 T ° A !! DtSPLAV *Tf2!,IO-*Mti2),iiM •» 

:P(Ijj: NEXT I :: FOP r=l TO 16 :: PRINT ■- NEXT I ■■ CALL Dl 
525 CALL KRUEGEftLUl,l3)ii PRINT " S P I E L E n'd E" ■- PRINT ■ M A C H 

R LI N D E ";R :: CALL SI :: CALL CLEAR n END 
530 SUB Dl 

535 CALL CQLORft, 16,4,2,15,11,3 7 d j i a , , 
540 RESTDRE 545 : : FOR 1=1 TO 2C 



00030F1 F, 30, OOOOOOOOOOCOFOFS 



550 DATA 39,OO0000OOO20FFFFF,40,0,41,000101010i0101FF,4 

ooooooooooofc,44,oooooooooooooo3f „.„„_,. ... , 

555 DATA 1 12,0101010101010101, 113,808060808080808, 114, 01010101, 115, B0BO8QB, 116,1 

■. ■ . . '■:..: '■■' ■ - . . : i.- '■""' 

560 DATA 45,7B4A4B7A42424242,46,aOBOa09C909Ca4DC 

5&5 SUBEND 

V,l SSSS-iVS. M T. «,»»»., «W> «.„,,:«« •»...«-:^ 

1 :: NE!<T I :: CALL S0UNDil0,-7, 13 

580 DATA " I"S ■'," # * \p<i((B,p(-.(q,p!t(<q, r * + ' ,s , tu , w 

585 SUBEND 
5^CALL D COLaR(2,15,4,5,2,4,£,2,4,7,2,4,a,2,4,9,13,4,10,5,4,ll,2,15,12,2,ll,13,2 

60o'rESTDRe'610 :: CMvW.'wil FDR 1 = 1 TO 6 :: READ < :: CALL CHAR«,C*) : = 
NEXT 1 
£05 DATA 64, 96,104, 58,46 
610 DATA 33,47,59,92,98,105 

615 FOR 1=0 TO 21 :: READ X,CB ii CALL CHARtX, C*> : : NEXT 1 
620 DATA 34,3F7FFfFFFFFFFFFFFCF£FFFFFFFFFFFFFFFFFFFFFFFF7F3FFFFFFFFFFFFFFEFC,120 

625 DATA 41,00O0030FlFlF3F3F0000C0F0F8FBFCFC3F3FlFlF0FO3O00OFCFCFBFaF0C000O0FFC3 

- ■ . ■ ■ ■ ■ ■ : . '?!■:.';: i : 

£30 DATA 64,3C7EC3DFC3FB423C,9B,3C7EC3DFD3::.[. ■ =- 

635 DATA 33;0F0FOFOF0F0FOFOFF0F0FOF0F0FOF0FO101O1012F4F8FB7,SB,3C7Ei.3DBC3D75A3C, 

46, 31" "r.3 OF D3DB423C 

640 DATA 132.66. 133, 0201 02u I K010201B0408040B040B04 

645 DATA 60,01030701 ffFFFEFi:fsF0ECCOGOFF7F3F1F0F070301,118 

.000000181B2442FF3C42B1B1B181423C „„„„, .„-„,,„, ,. 

651 DATA 11 1FFM AB012551A2C980AAD5BOC994BB-2501AB55012551.il 

6.A2C1BOD5MD5FFFF8B050155AB55FFFF ■ 

655 DATA 121,000000FE0F3B4545001F107FB000O0FF00FB0aFE010101FF297F232223637F6160, 

660 DATA 60 OOOOG001C--«1FFFrr.[-Oi:OCO::OL-.-*--= ' .■■■.' lEUFBFFFF 

--: ■■:.■. ■-...■■ .-■■■: ■....-■ -...:■■■: ■■■■■-.■■■■-:■■■■■■ ■■ 

670 DATA 136 00794A4A7B424242009.-:-.;-:.::':-. ' ■A6B5A5A4B 

675 DATA 140.00DE12129E1B14D2010205C534FC07FFE718CAEACABADFE78040AOA3ACBFEOFF 
6S0 SUBEND 

!loCALL P DELSRRlTE((il) : : FOR 1-14 TO 16 :: READ C* :: DISPLAY ATCI , 11)SIZEU7>:C 
1 :: NEXT I :: SUBEND 



: NEXT > 



y,32,a):: CALL D£L5PRITE(SK*9+ 
CALL SDUND(10,-£,5):; READ C* 



720 »T*«"h«.,*.--. a.eehnh.'tih.. a ,ee*ij,eeeeh,hh... a,**'**, a,"hh:,ii 

725 data ■ "■ ■hhh,eee",Hhhhh a ,@ee@e a ,@hh:: .. *»•»- - 

730 SUBEND p R , 

735 SUB Si :: RESTORE 740 :: FDR Z=l TO 45 :: READ B,A :: FOR 1-1 TD 30 STEP B . 
■ TAN SQUND'-50.A. I): : NEXT I :: NEXT 7 
740 DATA 2,293,2 246, 2, 293,2.246,3,261, 8,246,4,261, 4,293,4,246,4,391,2,293 

'« D"™ *UL 4 261 4 22< 

750 DATA 4, 220, 4, 246, 4. 261,4,220, 4, 246, 4, 261, 4, ,.^-.,4, 246, 4, 2^0, 4^46,4,^1,4,^1 

,4.246,4,261,4,293,4 



755 DATA $ 
760 SUPEND 
765 SUB S2 
,!3,D,13!:: 
770 DATA 4( 
,523, 261, 4( 
5 DATA 



300,-1 
1,400,4 



,391, 

7SO DATA 3 
,220,900,493 
7B5 DAT* 7B3 
,300,440,523 
790 DATA 80C 
795 SUBEND 
BOO SUE S3 ; 
SOS SUB 54 : : 



i, 2, 293,2,246,; 

RESTORE 770 :: 
NEXT I 

3,293,293,900, 

J, 523,261 

), 523,261,100, 

3,369,369,400 

J, 329, 400, 293, 

1,391,400,391 

1,400,391,783, 

;, 100,440,527, 

',763,391, 



■ 



293,2,246,3,261,3,246,4 

: FOR 1=1 TO 28 :: READ 

7B3, 391,400,391 

523,261,600,391 

293,400,261,261 

400,391,523,261 

587,293,1200,39: 

CALL SOUND' 
,1):: SUBE 
INT<RND*6- 



,400, 



220,1,195 

D :i CALL 5DUND(A 

400, 39 1,783, 391, B 

BOO, 440,783, 39 1,B 

246,246,246,400,2 



400, 



, 523, 261 , 400, 493, 523, 26 1 

783,391 

■50,391,1):: NEXT I :: SUBEND 

I 

GOTO 825,820,815,330, B35.B40 



1-5 TO 29 STEP 4 
: CALL SOUND<1100,110, 
BIO SUB SPRfX,M(,)):: RANDOMIZE :: 
B15 RESTORE SS5 :: GOTO B45 
820 RESTORE 870 : : SOTO 845 
325 RESTORE 005 : ; GOTO 845 
830 RESTORE 900 : : SOTO 845 
B35 RESTORE 915 :: GOTO B45 
B40 RESTORE 330 

B45 FOR ZMtt9*l TO X*9«7 :: READ C* :: DISPLAV ATCZ,2>SIZEf7):'C* :: NEXT Z 
950 V=0 ii FOR Z=B+X*9 TO 16+X*9 :: READ C*,Y,A,B :: CALL CHARtMIX, V),C») : : CALL 

BPRITE(#2,HCX,y),V,A*Xt72,Bli: V=W1 ie NEXT Z 
855 DATA .mm,iy! (m, Kipqxxx.xxrsxxx, Kxr s> xx, .xtiiy.xx.xxxxxxx, 606060606060606 
, 2, 25, 33, 6060301BOC03, 2, 33, 33, 38381 0001C1C1C1C 

860 DATA 6, 15,33, 0FOO7FFFFF007F7F, 6, 11,41, FOOOFEFEFEOOFEFE, 6, 11, 49, 7754665477, 5, 
29, 62, 7545464675, 5, 29, 70 

865 DATA 3A2A322A3A,5,37,£2, EEBACEBCEA, 5, 37, 70 
870 DATA i///f /*,///////,///////, //u/u//, ///////, /v/v/v/, •■*//!>/, " , 3C7EDBC3C3DB7 

7, 25, 49, 243C3C24, 10, 27, 49, AOAEEAEEABAE 
B75 DATA 7, 13,37,EEAAAAAAAA, 7, 14,45,BOiX>BBAAAAABA903,7, 12,53,BAABBAA2BAB,7, 14,61 
, EA8AC48AEA, 6, 35, 4 1 , EEAAEA3ABE 
B80 DATA 6,35,49,EEA4A4C4A4,6,35,57 



385 DATA >/iV/i'*,A\\\\/,A\\\\/ i 
5423C, 15, 41, 49, AOAEEAEEABAE 
B90 DATA 16,13,37,EEAAAAAAAA,1£,1 
E.1.0132724959D3BD03, 11,25,41 

J DATA B04C4E323A3BB1C, 11,25,57 

DATA ■!!!!*"■!//!//!. i HIJK 

A6A3, 6,6, 43, C76777963E7665C5 

305 DATA 6,6,53,B1C3FFFFFF,15,12, 

5, EAA2AAEASABA8A, 9,27,47 

310 DATA EOB0E020E,9,29,55, " 

»I5 DATA ! !' ! !#",r = ' ■?*, I KIJKL I 

46A3, 6, 6, 45, C76777969E7665C5 

320 DATA £,6,53,B1C3FF,4,12,49,FFFF 

5,9, 27, 50,04047454744474 

5 DATA 9, 27, 5B, 79BD85CDDD0S, 11,42 
.'•",ECODDDF,E/////F,E/ 



WA\/,"AABC\/ J .A\\\ 
.,45, B000BBAAAAABABO3, 1 
&6A55A1B1B1B, 1 



3,BAABBAA2BA6,1 



/HJjO/!,*!!! ! !X,E3E6EE69796£ 
307C03FOOFWI F,5,42,33,O13ECOOFFO00FF,5,42,E 
42, 47, E05050505, 11,42,55 



!7.,E3E£EE69796E 



5,43, E09095353595E7, 9,2 
E05050505, 1 1 , 42, 55 



930 DATA 

E30.5, 12,49,9496969595? 

5 DATA 7, 22,42, AFA9A9A9A3A9AF, 7, 22, 50, 43696959585848, 

1 , 00EEAAEA9ABE, 6, 3 1 , 43 

4,6,31,S7,3C4281818181423C,2,39,3a,3C4281BlBlBI423C, 



"+DDDDD, '■ , FFD6DBDBDBC37 
22, 5B, 00EA6AC48AEA, 6,31 



SawM&rafttattfl 


Tl 99/4 A k 


40-Zeichen 


rss as— .- 


!„•! duid, Vi.-nu-niiimE tosu- LES i.«) ur..! \H> cinctiick-ji 
iStEanalen Tes[.™Jus all /_,;. w!,J. Dadurch »ir,l in, VDI'- 


life SESl 


40-Zeichen Textmodns 


a.'- 


' tf i™,™™.™*,™,.™....™ 


i, :ut c^snErs?"" 


ssl. r:;:~"--" 


■"&»■ =£™ 
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410 DATA 006 


1:1 


1:1 


1 


; i 




ill 


1 


1 




111 




10 « ER «««. Reaktionstest SS^Sf^tS^!^ 

110 CALL CLEAR ZeichennichlrEcmlciliEgchin- 
120 INVUT "WELCHE GESCHWINDISKEIT ? ":A <kn l»t, n>uB man mil dem 
130 CALL CLEAR ffierKhlwdmoMiu&i "22™ telM ?™- Am 
140 FOR W TO 20 then. dMsufdcmBad^iim^™^"*™*-**^ 1 ' 
150 RANDOM ZE eracheint, so schndl wie mflg- ™ th] ^^ ^Jjf * 
160 B=INT<RNDt42*4B> uod ^u' dracka^Anto" st,llnd " u,u " len - Uas Spiel 

150 CALL KEViO,K,S) ifimmen bem-eii ."-" : ' ■■'■' 

200 [F K-B THEN 300 

210 NEXT L 

220 NEXT I 

230 CALL CLEAR 

240 PRINT " "jOf-VON 20 P10EGLICHEN": : " GESCHAFFT": ; :" GESCHWINDIGKEIT l"|Al 

250 CALL KEY(0,K,S) 

260 IF S'O THEN 250 

270 IF K-13 THEN 100 

280 CALL aEAR 

290 END 

300 CALL SOUND1250, 550,0) 

320 GOTO 220 



IOAL 



Analysieren Sie die gemachten Aussagen 
richtig und kombinieren Sie logisch. Dann 
kommen Sie der Losung sicherauf die Spur. 



LOGICAL 



$ ' E * 



Auch diesmal bringcn wir wieder elwas fur unsere Knobelfreunde. Das neue Logical 
ist da. Zu gewmnen gibt cs diesmal als 1.-20. Prcis je em Softwarepaket. Bitte geben Sie 
deshalb bei Thren Losungen audi den gewiinschten Compulertyp an. EinsendeschluR ist 
der 1. April 1986. Der Rechtsweg isl ausgeschlossen. 

Jetzt die Aufgabe: 

4 Leute treffen sich in Koln im Karneval und maehcn in ihrer Faschingslaune eine Po- 
lonaise. Es sind Gunter. Heidi, Fred und Anneliese. Sie kommen alle aus verschiedcnen 
Stadten: aus Hamburg. Diisseldorf, Hannover und Trier. Verkleidet sind sie als Pirat, 
Indianer, Charly Chaplin und als Robin Hood. Sie sind 27, 26 und 24 Jahrc alt. 

1. Hinter Robin Hood hat man sich als Indianer verkleidet. 

2. Als erster lauft ein Mann. 

3. Der Dtisseldorfer lauft binter Heidi. 

4. 2 sind gleichaltrig. 

5. DeT Pirat lauft zwischen dcm Indianer und Charly Chaplin. 

6. Fred aus Hamburg bildet nicht das SchluJJIicht. 

7. Heidi ist 3 Jahre alter als Fred. 

8. Gunter lauft yor Anneliese, die nicht aus Hannover kommt. 

9. Gunter ist so alt wie Heidi . 

10. Die Frau, die aus Trier anreiste, lauft am SchluB und ist als Charly Chaplin 

verkleidet. 
Dazu hatten wir jetzt zwei Fragen: 

1 . Wer kommt aus Diisseldorf? 

2. Wer kommt aus Hannover und welches Kostum hat diese Person an? 
Schreiben Sie urts auf ein er Post karte diese bciden Antworten und vergessen Sie nicht, 

Ihren Computertyp anzugeben. 

Viel Spall beim Knobeln! 



**UNGLAUBLICH** 

Die gesamte Leistungsfahigkeit Ihres 

M icrodrives kann nun total ausgeschopft 

werdan. Ein Mull fur M-Drives! 



MIRAGE 
MICRODRIVER 



fli 



MICROCOMPUTER LTO. 



Thomas M. JOHN 
5400 Koblenz 16 



P 



pndo uhlitiBg, _ffi g 




m i ■■■■■■■■■■■■■■ 
- ■■■■■■■■■■■■■ 

1*5 SB lein--h:ci'-.eii! 




_® Michael Naujoks ] 


Diesen Monat neu 


lii! IP 


Gurangr.i Miiiwu dm a 


Hardware 


Sinclair 


> 
Software 


S' 5£ 


: S 


™3£* 


Kostenfosen K 


atalog anfordernj 


cm'™'." ap* ""dlfi*" HoBliw: 
,. ^•™-11"°d. earn H° ola ™b7rg (08221) 4S8SS , 
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KLEINANZEIGEN gj 



Spectrum 

User Club 

Wuppertal 



Club-Zeitschrift 

Tips, Tricks, Bauanleiturtgen 

Vorstellung neuesler Programme 

Erfahrungsberlchta 

Mitglieder-Bdrse 



Weitere Informalionen erhalten Sie (gegen 

Einsendung von DM 0.50 Riickporto) von: 

Rolf Knorre, 

Postfach 2001 02, 5600 Wuppertal 2 



HP-SOFT 



* Spitzenqualltat * 

* Geniale Preise * 
Gratiskatalog * 
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Jfefffl 









LOGITEK 


Computer Systeme 


Monfflior Zenith 239.- DM Dmcka-SHINWSCPABO-tOQ 
Wlr hleteo el nan ZX Spectrum Reparaturservice an. 


LOGITEK £TE 


!S££53KSS.« 



Schneider CPC 464 






U. KUNZ 



Peter West Records GmbH 



Schneider 



PreiS C64 



Wizards Lair 38.90 Wizards Lair 

Hi Rise 38.90 Hyper Sports 

Use It 38.90 Rambo 

X-Basic (CPC 464) 12.90 Frankie goes to 

Friday the 13th 42.90 Friday the 13th 



.30 


Wizards Lair 


37J 


M 


Star Quake 


37: 


.90 


YieAreKungFu 


36. 


.90 


Frankie goes to H. 


41: 


.90 


Gladiator 


42. 



Alle Praise beinhatten die gesetzliche MwSt. Liste gegen DM 1.- i 

Wir suchen Program mierer, die gute Programme fur Schneider, 
C 64, Spectrum und Atari geschrieben haben. Schicken Sie uns 
bitte Ihre Programme mit Beschreibung auf einem Datentrager. 



Handle rant rag en erwiinscht. 



Beifolgendam Handler konnen Sie 



PETER STAMM - Henkelshot 1-3/80- 5630 Remaeheld 11 ■ S 021 91 /663078 



INDIVIDUAL SOFTWARE 

k SPECTRUM * SPECTRUM * SPECTRUM * SPECTRUM * SPECTRUM 
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KLEINANZEIGEN 




C 64 ABACUS SOFTWARE-BOUTIQUE 

MASTERGRAFIK CENTRONICS 

DRUCKER GLP ,ncl. 

mSSSSSS INTERFACE 

"'vonaraphiMshig' uin oyy 






DISK DM49 



MULTIPLAN 



DM195 



ELITE »««a..™«™™ DISK. DM69 

CASS. DM 59 

HANKIE GOES TO HOLLVWODD CASS. DM 35 

EXPLODING FIST CASS. DM 35 

ESCHERSHEIMER LANDSTR. 84 6000 FFM 069/594019 



ACHTUNG!! UNTER ALLEN I 
EINSENDUNGEN WIRD EIN 
PRINT SHOP C 64 VERLOST ! 
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KLEINANZEIGEN 



Texas I nstru ments 



cow.km,»2/8b KLEINANZEIGEN 



/ 
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KLEINANZEIGEN « 




Bestellschein fiir private Kleinanzeigen 


I ' Li- j-i- 














::::1L 



ES ,| 



Vtilug Riu-fhcrlc IM 



EEBS „■ 



■im 
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FUNDGRUBE 



■■?""■■■■■■■■■■ 
■ J jgJ ; '-S! FUNDGRUBE 



CP/M 2.2 auf alien 
Atari STs 



u.a..CMtf-W-Pii)BraTln 



rZ80 den. Umgcbautc Shupn-kom- wfrd IllCht OHAuC 





Act i vision 
griindet neues 
Softwarehaus 




^at^S^ Neue Mailbox 



rcich) U ,id Neue Szenerie- ^ 
D™Td« disketten fur den 



ii:^!i.i in Sinclair, s P « 17, . , , „ I *BiisinBis-SaftwarB* 
und den Jet ! pc^ "bSS^fS sbb!- 



Neue Mailbox 



Fa. LDcker/CK 

In der Ei sen bach 37 
6270ldstein 



Computer Komakt 2/86 


FUNDGRUBE i» 


mjm ■MHHi 


Neues von 
ScoobyDoo 






C1M(IW s 33 








^Hl 




Compy-Srop ft 10? 










.iiilHCmJijeSnii-l-UcsLsn-Sprs- 






















*^ r "^P s^B'ta^^^l 




H-PS<* S. 96 


^^^i»j^SiPi8N^^B 


chetl Grulikdaicn «i Scocilw 


^uasoftwm S.1O0 


C raB cr S!5 5 5^ Ce^riM-m 


Sprache nun ?.ur Yi'fluirjriK 


^r K " nMonh s! K 


Der Bergische Computer 




£L* «£•« 


Flohmarkt 


r n(nffi .-ird. 


£T" + S. » 


Seta, der 1. Bergische Com- OWH =11™ 8™dOT WJ* 




LOckS. ft 105 


^'^f^tolXn™ ^^.Tv^r^bl"! 


Es geht auch 


Ncraswt s is 




anders 


Peter West Records S.10O 


dej 'i^i"r bii-.LV n Sii.d Lir.!'. ■.■i- r! -Fi-s:jvar smrten. Dan 






,i^UrinwUKC^Lettt(j»i 




Pause" imdHaub S. 80 
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: J. Jahn und Peter Bee, 4330 Mulheim Ruhr - Gneiss naustrafle 29, Telefon 02 



Der Atari Spezialist 

Auszug aus unserar neuesten Preisliste: 



HARDWARE 



Atari 800 XL 248.- DM 

Atari 130 XE 398.- DM 

Atari 800 XL, 128KRAM T voll 130XE kompatibel 498.- DM 

Nachrustsatz 800 XL/600 XL auf 1 28 KRAM 248.- DM 

Farbdrucker Okidata Okimate 20 

anschluBfertig fur Atari Computer 999.-DM 

anschluftfertig fuir C 64-Computer 965.- DM 

Farbdruckprogramm im Lieferumfang enthalten. 

Okidata Microline 192, NLQ, 160Zeichen/Sek., anschluRfertig . . 1749.- DM 

SeikoshaGP-1000A, FX-80 komplett anschluftfertig 1153.- DM 

Ape Face, Drue ker- Interface 298.— DM 

Doppel-lnterface850XL(1 Centronics/1 RS-232) 398.- DM 

Atari Light-Pen 1 69.- DM 

Tech Sketch Light-Pen 169.— DM 

OldrunnerkartefiirXL/XE 98.-DM 

OldrunnermitSOZeichen und 4 KBibomon 198.- DM 

16 K Bibomon mit Hardware-Uhr und Centronics Parallelport . . . 448.- DM 
DerEinbaudes 16 KBibomon muG bei unserfolgen! 



SOFTWARE NEUHEITEN 









2 19 - DM 
219.- DM 

79.- OM 
T48.- OM 

79 - OM 
149 -DM 

89.- DM 
149.- OM 
149- OM 
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296. 
169.- 
129.- 
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39.- 














Esse- D 




298.- 



DEMNACHST 



Aero Jet, der Super-Flugsimulator von MicroProse. Gun Ship. 
muiator. Jet, der neue Flugsimutator von SubLogic, Essex un 
Alternate Reality von Datasoft, die drei Spitzenadventure. 

Rufen Sie uns an und fordern Sie die neueste Preisliste an. Oder senden Sie uns 3.50 DM 
Briefmarken fur unseren Atari Katalog, in dem Sie einen grofien Teil der Hard- und Software t 

kiart tinden Telef on Q2 Q8 / 49 7 1 69 
■ iJglH 1JEM Ega BEM HS8 



T.S. Datensysteme-Vertriebsgesellschaft mbH 
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, SO, Tel. 0911/288286 



